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MODULE 
FORMAT (IDENT = 'V04-000") = 
BEGIN 


s333 


Fix minor bugs in /FULL output where certain wmumeri¢ fields 
weren't being space padded the full length of the field. 


v03-008 DAS0002 David Solomon 23-Jan-1984 
Rearrage /FULL output to accomodate 31 character queue names 


a 

ga 004 1 

3 5 4 ze 

: § 000 } Qala qaergruap smegma ey aie sy somes (rear 
i. © 9008 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
3 9 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: 19 gt : - ALL RIGHTS RESERVED. : 
; 1 pore 1 is al he IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coptee * 
. <9 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s 0014 1 !* INCLUSION OF one ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
<.) 0015 1 !* COPIES THEREOF = NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: if 34 : - TRANSFERRED. * 
3 {® ® 
“ore 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ot, an 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $3 B38) : we CORPORATION. . 
3 fe 

3 $6 00 : 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ae 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 25 0025 1 !* * 
; & 0026 1 !* * 
3 27 0027 1 eee reeeea eee eee eae eAAREAAAAAAAAAAAAAAAAAAA AAA AATAAAAAAAAAAAKAAeAAAA AAA ees 
; a 0028 1 

3 9 694 1 !e¢ 

3 0 0030 1 ! FACILITY: ACC, Account file dumper 

; 1 0031 1! 

D4 32 003 1 ! ABSTRACT: 

>. oo 0033 1! 

; 0034 1! This module contains various output formatting routines used 

; 0035 1! by Accounting facility programs. 

; » 0036 1! 

3 37 0037 1 ! ENVIRONMENT: 

; 0038 1! : 

3 4 444 : VAX/VMS operating system. unprivileged user mode, 

; rt 98 } AUTHOR: Greg Robert and Steve Forgey, January 1982 

: £3 0043 1 ! Modified by: 

3 44 0044 1! 

; 65 0045 1! v03-011 gascors David Solomon 16-Jul-1984 

:; 46 0046 1! prenes ate UIC from binary to alphanumeric only if we need to 

BE pale t 

: 49 0049 1! v03-010 DAS0004 David Solom 28-Jun-1984 

; 30 Boe i Expand size of UIC field oon 15 to 23 characters. 

: ¢ 1 V03-009 DAS0003 David Solomon 13-Apr-1984 

: 56 1 

3 22 1! 

3 6 1! 

: 57 1! 


55-Sep-1984 23:41:37 VAX-11 Bliss-32 V4. 
15-ben-1984 Pigsiae  PeehbGAlS tens ckce shcSronmar.ese:1. 8 «15 


: : 28 ! : and 39 ciiaracter job names. 

; 60 1 i v03-007 DAS0001 David Solomon 12-Jan-1984 

; 6 1 : Get ACCDEF.REQ from SRC$, not MSRCS$. 

; 6 : 1} V03-006 LMP0140 L. Mark Pilant 19-Aug-1983 11:37 

; 6% 1 Add support for alphanumeric UICs. 

; $8 0066 1/ v03-005 ake 20 Steve Forgey 15-Jul-1982 

3 4 06 } } Remove infermetional messages from compile. 

: 9 0089 1 v03-004 — Steve o Forgery 21-Apr-1982 

g 0 Se Use explicit field Lengths in FAO control strings in the 

$ f} pert : /FULL display. 

ea 8678 1/ v03-003 SPFO111 Steve Forgey 10-Apr-1982 

3 Le Boe ; } Display resource usage data for pre-Version 3 accounting files 
: 7% 0076 i V03-002 SPF0103 Steve Forgey 27-Mar-1982 

oo 0077 1! On a /FULL display, update only those portions of the 

; | Bore : } screen that have changed. 

; 80 0080 1 | v03-001 SPFO101 eve Forgey —_ 27-Mar-1982 

s 3 308) : Limit display but ier writes to 512 bytes. 

fo © 0083 1 | vO2-002 SPF0080 Steve Forgey 06-Feb-1982 

; a a: : Fix value errors in /FULL display. 

; 86 0086 1 | v02-001 SPF0072 Steve Forgey 

; | 68? 0087 1! Enhance /FULL display. 

; 0088 1! 

3; ww 0089 1 !-- 

; 0090 1 

> 91 0091 1 ' SES enn see weer mewr ee ree emrnaaneecaese rer eseseoeraoors esa aoeoeccenmn se ese sre sear sot ecaewoweaaes > 
s 3g 0092 1! . 
: 9 00953 1! INCLUDE FILES 4 
; 9% 0094 1! : 
: 95 BB0$ 1 leeecanssewsncesssacenseresnanssccascosssesenscenesnssessesessesneancessonsss ’ | 
; & 0096 1 Le 

; «97 0097 1 REQUIRE ‘SRC$:ACCDEF'; ' Common ACC definitions 


Pal 
> 
~ 
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3| 
(2) 


v04-000 14-Sep-1986 11:52:04  DISKSVMSMASTER:CACC.SRCJFORMAT.832; 1 

; 100 or 3} : 

> 101 938 1 i TABLE OF CONTENTS i 

i 19¢ 939 1 | i 

$ 1 0 940 1 ' (SR ee en ee me me Re eee ema emrnr ese ee = Sw cas we mm BD rR PDE eK Be BOE De wrersnn see weeae a = wren econ ams 

; 1046 941 1 

; 105 ats 1 UNDECLARE 

$ 198 94 1 SHOW_RECORD; 

; 10 0944 1 

; 108 0945 1 FORWARD ROUTINE 

: 109 gae8 1 SHOW_RECORD, ! Dispatch to output routines 

: 119 Boe 1 SHOW_BRIEF, ! Write summary format 
3 3 Race ; SHOW_FULL; ! Write a FULL record format 
: 118 0950 1 

s 116 0951 1 EXTERNAL | 
> 115 095¢ | | 
; hy 0955 1 DATE_DESC_ADDR, ! Address of desc of date in record 
3 4 Boge ; DATE_HEADER, ' Address of date-name descriptor | 
: 119 0956 1 | 
: 120 0957 1 
s tel 0958 1 QUAD_CPU_TIME: VECTOR (2), ! Processor time in standard format | 
ca | ¢ 0959 1 ELAPSED TIME: VECTOR $3. ' Calculated elapsed time 
: 136 o360 ! WAIT_TIME: VECTOR C2], ! Calculated quewe wait time | 
HB tee fre brews 
; % ‘ ' Recor e 

: 127 0964 1 RECORD SUBTYPE, ' Record ou type (V3 format ealy! 

: 128 0965 (1 CUSTOMER ' Customer type (V3 format only 

: 3 0966 RECORD_LENGTH, i Record Length 

: 131 0968 1 ACCOUNT_DESC: VECTOR (2, ' Describes account name 

3 13 0969 1 ADDRESS _DESC: VECTOR (C2), ! Describes remote node address 

ya 0970 1 BUFFERED_10_DESC: VECTOR C2], ! Describes buffered 1/0 count 

3 «(134 0971 «#1 CPU_TIME DESC: VECTOR (2), ' Describes cpu time 

i 1% 0973 | purey Becton VECTOR E97, i bescribes fobeid mumbocen™ 

; : "i ' Describes jo number 

Poy ney Pagan Prem Se ties te | Gescties sit cosmos oo 

; : . ' Describes e@ name 

3; «139 0976 1 FINISH TIME_DESC: VECTOR ‘ ' Describes finish time 

: 140 0977 «#1 IDENT_BESC: VECTOR ‘ Describes process id (IDENT) 

HBR) aR elcepeseeeerae | Hrner ez Teh dale oe 

: 128 980 1 408 DESC: VECTOR (33, | Describes job-name 

: 148 0982 | BORER pESe VECTOR (53, i Describes oumen IDENT 

: : " ' Describes owner 

: 146 0983 1 PAGE _FAULTS_ DESC: VECTOR e ' Describes page fault count 

3: 1467 0984 1 PAGE-FILE DESC: VECTOR e ' Describes page file peak usage 

: 148 0985 1 PAGE-READS DESC: VECTOR ° ! Describes page read count 

: 149 09 1 PRIORITY DESC: VECTOR - ' Describes process/job priority 

3; 150 09 1 PRIVILEGE DESC: veetae ‘ poser ies process or tuthege mask 

: 133 $9 9 i QUEUE DESe. VECTOR ‘ | Reocribes Queue Rene 

3; 95 0990 1 QUEUE" TIME DESC: VECTOR (2), ' Describes queue time 

> 154 0991 1 EMOTE ID DESC: VECTOR ‘ ' Describes remote id 

3; 155 0992 1 START_TIME_DESC: VECTOR . ! Describes start time 


1 
F T 1 “19 3: VAX-11 Bliss-32 V4.0-7 4 
v0e-000 14-Se Heer Ti j 3); bc DISKSVMSMASTER:CACC. SRC FORMAT .B32;1 ~—_ (2) | 
3; 7 $ ye STATUS_DESC: VECTOR ° ! Describes final exit status code 
.?s 994 1 STATUS TEXT _DESC VECTOR ° ! Describes final exit status text 
; 158 995 1 SUBTYPE_DESC: VECTOR " ' Describes record subtype 
; 159 344 1 YM_GET_DESC: VECTOR e ! Describes symbiont get count 
: 160 838 1 YM_Q10_ DESC: VECTOR ‘ ! Describes symbiont gio count 
: 161 8 1 M-PAGE_DESC: VECTOR . ' Describes symbiont page count 
; 16g 0999 1 TERMINAL DESC: VECTOR ° ! Describes terminal — 
; 16 1996 1 TYPE_DEST VECTOR ° ' Describes record type 
: 164 1001 1 TYPE _TEXT_DESC VECTOR ° ! Describes record type text 
> 165 1906 1 VIC_BESC: VECTOR “ ' Describes translated uvICc 
; 166 1003 1 UIC_BINARY_DESC VECTOR ° ! Describes binary UIC 
s 1004 1 UIC" BUF : VECTOR , BYTEJ, ! Process ule. taSCi) 
; «168 1005 1 USER_DATA_DESC: VECTOR ° ! Describes user data 
: 169 1908 1 USER DESC: VECTOR ° ! Describes user name 
: 170 1007 1 VOLUMES _DESC: VECTOR , ' Describes volume mount count 
3s 171 1008 1 WORKING_SET_DESC: VECTOR 5 ! Describes working set peak 
3 \7¢ 1009 1 
3; V7 1010 1 
: 1746 1011 1 OWN 
s iv 1olg 1 LAST_DISPLAY_TYPE: initial (0); ! Type of last record 
: 1% 1013 1 | 
.. or 1014 1 LITERAL 
; 178 1015 1. ~ owe — = 1, 
; #179 1016 1 PRINT DISPLAY = 2, 
; 180 1017 1 USER "STSPLAY = 3, 
3; «(181 1018 1 FILE_DISPLAY = 4; 


F T 14.50 “19 3:41:37 VAX-11 Bliss-32 V4.0-74 P 5 
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. ; 3 : 38 } GLOBAL ROUTINE SHOW_RECORD (BUFFER, RAB) = 

: 5 1 tonne 

3 ' § Functional description 

. 4 1025 1 This routine is called to dispatch to the proper formatting 

3 Ps 19 $ : } routines for various combinations of command Line switches 

: 19 1 1 ' Input parameters 

; 198 10 § 1! shia 

> 194 1030 1! BUFFER = Address of a buffer containing the record to be detailed. 

3 <4 : 1 : The record can be any, standard format, record. 

: 137 \3 : ! RAB = Address of the output rab 

: 199 10 5 ; Output parameters 

; Oi 1037 1! The appropriate formatting routines are called. 

3 4 1038 1! 4 errors encountered are RETURNed immediately. 

3; a 1039 1! TRUE is returned on a normal exit. 

: 204 1040 1! 

3 05 1041 1 !-<-- 

; 206 Mok i 

3 07 104 BEGIN 

; 208 1044 

; 209 1045 : 

: aii eg : DETERMINE OUTPUT TYPE -- 

3 1g Hv If /SUMMARY has been y praday. then invoke the summarization. 

3 $\ 104 : routine and exit. If /BINARY has been specified invoke the binary 

3 \ 1320 } output routine and exit. 

: 16 105¢ If /FULL has been specified invoke the show full routine, else 

: 1 105 ‘ invoke the show brief routine. 

; 218 1054 ! 

3; 219 1055 

; 0 1056 If PRESENT (SUMMARY) ! If /SUMMARY 

3 1 et then return summarize (.buffer); 

: $38 1059 3 If PRESENT (FULL) ! If /FULL 

: 224 1060 then perform (show full (.buffer)) ! call the SHOW FULL routine 

3 336 196) else perform (show_brief (.buffer)); ! else call SHOQ_BRIEF 

: 5 1968 Return (true); 

; 228 1064 ND; 


TITLE FORMAT 
-IDENT \v04-000\ 


-PSECT DATA,NOEXE.2 
00000000 00000 LAST_DISPLAY ont 


-EXTRN ACCS_INVACCREC, ACC$_TOTAL 


PP A Se Te eae 
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.EXTRN ACCS MERGE ACC$_INPUT 
SEXTRN ACCS-TITLETRUNC ~ 
“EXTRN ADD SYMBOL ALLOCATE 
“EXTRN FIND WATERMARK, HANDLER 
-EXTRN LIBSADDX, LIBSCVT_DTB 
-EXTRN LIBSCVT_HTB, LIBSCVT_TIME 
“EXTRN LIBSDAY> LIASFILE SCAN 
ZEXTRN LIBSICHAR, LIBSLOOKUP_KEY 
-EXTRN LIBSSUBX, LIBSSYS_ASCTIM 
-EXTRN LIBSSYS FAO, Liessy FAOL 
-EXTRN LIBSTPARSE, L 
*EXTRN LOOKUP SYMBOL map QUALIFIERS 
SEXTRN PARSE OUTPUT FILE 
~EXTRN RELEASE TO SORT 
-EXTRN SCAN_SYMBOCS, RECORD 
eEXTRN SORSEND SORT SORSINIT. SORT 
“EXTRN SORSRELEASE_R 
eEXTRN SORSRETURN. REC SORSSORT _MERGE 
“EXTRN STRSAPPE D. RSC 
“EXTRN STRSDUPL STRSLEFT 
“EXTRN STRSPREFTX, TRSREPLACE 
“EXTRN STRSRIGHT, STRIP_NEGATOR 
“EXTRN STRIP_TRAIL, S 
eEXTRN SYSSNOMTIM aL RANSLATE STATUS 
EXTRN WRITE _BAR RAPH 
-EXTRN WRITE_-BINARY, SUMMARY 
-EXTRN WRITE TOTALS, pate Ene ADDR 
~EXTRN bare E READ pte TIME 
SEXTRN ELAPSED APiME TIME 
*EXTRN ST EASTONT RECORD. IT 5 
“EXTRN RECORD "guBTY YPES -CUst OMER 
*EXTRN RECORD “LENGTH, ACCOUNT_DESC 
*EXTRN ESS DESC BUFFERED 10_ DESC 
*EXTRN cPy mit DESC, DIRECT_TO DESC 
-EXTRN ENTRY DESC, EXECUTION DESC 
*EXTRN an E_BESC, FINISH_TIME_DESC 
"EXTRN ID SEAT _DESC, IMAGE~FILE-DESC 
“EXTRN IMAGE~DESC, JOB_DESC 
-EXTRN NODE_DESC, OWNER DESC 
SEXTRN PAGE-FAULTS DES 
.EXTRN PAGE-FILE DESC, PAGE _READS_DESC 
-EXTRN PRIORITY _BESC, PRIVICEGE_DESC 
SEXTRN PROCESS _BESC, QUEUE_DESC 
“EXTRN QUEUE TIME DESC 
-EXTRN REMOTE_ID DESC, START_TIME_DESC 
SEXTRN STATUS-DESC, STATUS TEXT DESC 
EXTRN SUBTYPE_DESC, SYR-CET DESC 
-EXTRN SYM QIO-DESC, SYM™PAGE DESC 
-EXTRN TERMINAL DESC, TYPE_DE 
-EXTRN TYPE_TEXT DESC, UIC-DESC 
-EXTRN UIC_BINARY_DESC 
“EXTRN UIC"BUF, USER DATA_DESC 
-EXTRN USER_DESC, VOCUMES~DESC 
“EXTRN WORKING SET_DESC 
~EXTRN QUALIFIERS 
.PSECT CODE.NOWRT,2 


sors 8ke Tissaibe © PreKSUMGMASTERSEACE SRCSFORMAT.B32;1°°%* (35 


00 .ENTRY SHOW_RECORD, Save nothi : 1019 
0B 000000006 00°'¢9 ac QUALTFIERS#, 1% "= i 1056. 
AC DD PUSH BUF R : | 
E 105 
000000006 00 oT F6 ¢ CALL , SUMMARIZE : | 
0A 000000006 00 06 £1 00014 18: BBC #6, QUALIFIERS, 2$ t 1059 
04 AC bp gOdIC PUSHL 8 FFER 3 1060 
0000v CF : 8 1F CALL » SHOW FULL : 
8 1 4 PER : | 
04 AC 0D 000 $ 2s: PUSHL BUFFER + 1061 
0000v cr oI Fg 00 CALLS #1, SHOW_BRIEF ; 
3 0 €9 OO002E 3$: BLBC STATUS, %$ : 
50 01 00 00031 MOV #1, RO > 1063 
04 00034 4$: RET + 1064 


; Routine Size: 53 bytes, Routine Base: CODE + 0000 


an 


a ee eC ee ae ———_——_ - - ————— 
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ai 


; } 5 ! ROUTINE SHOW BRIEF (BUFFER) = 

: : i 3 } Functional description 

: 1071 1: This routine is called to format a record from the system 

; : ie ! : accounting file. 

; 4 1958 : Input parameters 

: 4) 1978 1 i BUFFER = Address of a buffer containing the record to be detailed. 
3 rk} 13) : } The record can be any, standard format, record. 

; rf} 1078 : Output parameters 

3 26 1081 1! A brief representation is written. 

: 24 IOae 1! Any errors encountered are RETURNed immediately. 

: 248 1083 1! TRUE is returned on a normal exit. 

3; 249 1084 1! 

: $2 1088 1 

: 3 1087 BEGIN 

: 34 1089 MAP buffer: ref bblock; ! Define buffer block format 
: 256 1091 IND 

3 57 + input_file_ count = .buffer - 8, 

: 28 Hb , record_number = .buffer - 4; 

: 260 1095 2 OWN first: byte initial (true); ! First time switch 

; 261 1998 

: $8 1098 3 

3; 264 1099 2 | WRITE COLUMN HEADER 

; 265 1100 : Check to see if a column header is required. The column 

: 266 1101 ‘ header is written if this is the first time. 

2 oes 

3 269 1104 2 if .first then 

: 70 1105 BEGIN < 

3 71 1106 first = false; ' Clear switch 

$s a 1107 set_scroll (3 SCREEN (Length)); ! Scroll from Line 3 to end 
: 7 1193 erase_page : ' Erase entire screen 
: 27% P11 write Ci8e (XFAO ¢ i Write header 

- ae P 1110 Ap <' Date / Time Type Subtype Username ', 
3 7 P 1111 . 1D Source Status"), 

3; a 1116 -date_header)); P ? 

: 278 111 write_line (XFAO (ad ("!80*-"))); ! Underline it 

: 279 1114 END; 

; 280 1115 

3 3 1118 

: $88 We 3! 

> 284 1119 iFORMAT AND WRITE BRIEF RECORD --- 

: 285 1169 : 

3; 286 1121 


om ] 


f T 18. ie 1984 23:41:37 VAX-11 Bliss-32 V4.0-74 Ri , 
ep- 241: - ss- 

V0-000 1aaeea 188s FFi85:8, | NES couwBaASTeRccAce secSeonmar.e32:1°°%" cas \ 

3 7 P 11 ¢ Write_Line a es 

3 P 11 (*!20%D !8AS ! H4s '12AS 'XL !6AS !XL°), ! FAO control 

3 P 11246 inish_ sae _descll t “eaddress of qQuadword time 

: P 1125 ty des ! record type descriptor 

3 1 P 11 $ su type. =sése, ' record subtype geece ipter 

3 § P 11 user ' euser eB descriptor 

: P 11 3 if "eieet’ _desc(0) nga 0 ! «process 

3 3e : 8 then - idént_desc(1 | 

; P 1131 ti saode gtqectss neq 0 ! source name 

; P 11 § then node_des 

; P11 lse corainal. 335° 

: P 11 f .status_desc nga 0 ! final status 

; P 1135 then ..status _descC1 

; 91 1 else 0)); | 

: 88 1138 RETURN TRUE; | 

3 1139 END; 


.PSECT DATA,NOEXE,2 
01 00004 FIRST: .BYTE 1 ; | 
PSECT CODE,NOWRT,2 | 


00035 -BLKB 3 
6D 69 54 20 2F 0 65 74 61 44 20 20 20 20 20 00038 P.AAB: .ASCII \ Date / Time Type Subtype \ ; 
8 $8 33 8 96 9S 8 6 20 30 20 30 20 § go Soba? - nach 
20 65 70 79 74 62 75 0 20 00056 : 
20 20 20 $3 6D 61 6€ 72 65 73 55 20 20 20 20 Bape eASCII \ Username 1D Source Status- 5 
65 63 72 75 6F 53 2 2 20 0 44 49 9 0 9 006F \<0> : 
- as es , 0 $008 ASCII <O> : 
O00004E 00088 P.AAA: .LONG 78 : 
00990000" 0008 . ADDRESS 3 
00 00 00 2D 2A 30 38 se ib P.AAD: .ASCII Faden \<0><0><0> 3 
80000000" 9009’ “kDDRESS’P 
wAAF: AA ' 'BAS ! '12AS 'XL '6AS !XL\<0> : 
41 31 31 21 20 53 41 38 21 20 44 25 30 : 1 OO0A0 P.AAF SCI 5 30%D 'BAS '11AS !12AS !XL !6AS !XL\<O | 
41 21 20 4C 58 21 20 53 41 32 31 31 g OOAF ks, ; | 
00 4c 58 21 20 OOBE : 
9000002 b00¢k P.AAE: .LONG 35 : 
00000000" 000C¢8 .ADDRESS P.AAF : 


-EXTRN SCRSSET_SCROLL, SCREEN_CHAR 
-EXTRN SCRSERASE_PAGE, SCRSPUT_LINE | 


007¢ 00000 SHOW_BRIEF: 
WORD 


R Save R2,R3,R4,R5,R6 ; 1065 | 

5¢ 00000000" EF 9€ 0000 MOVAB FIRST, R6 ; | 
000 9006 0 9E 000 MOVAB NODE DESC, RS : | 

4 090000006 3E 00010 MOVAB SCRSPUT_LINE, R4 ; 

3 000000006 9E 0001 MOVAB LIgssys FAO, R3 ; | 

3 F DF cE 9— 0001 MOVAB <S20(SPJ, SP ; 
0 66 €8 0002 Blas” FIRST. 18 > 1104 


<~ | 
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0089 31 BRW 3 
4 CLR FIRST : 
7E 000000006 3¢ HOV ZuL SCREEN_CHAR*6, =(SP) : 
000000006 99 F CALLS #2, SCRSSET_SCROLL : 
D MOVL RO, STATUS : 
6E 5 BLBC STATUS, 2$ : 
0D PUSHL #1 : 
1 0D PUSHL #1 : 
000000006 F CALLS 2, SCRSERASE_PAGE : 
D MOVL RO, STATUS : 
D BLBC STATUS, 2$ ; 
c D MOV #1, =(§P) : 
08 AE 0209 F 3C MOVZWL #512, SSBUFFDESC : 
OC AE 1 AE E MOVAB $S$BUFFER, S$SBUFFDESC+4 : 
000000006 00 oD PUSHL DATE_HEADER : 
OC AE OF PUSHAB $SBUFFDESC : 
10 AE 9F PUSHAB $SBUFFDESC : 
FFGC «6OCFOS PUSHAB P.AAA ; 
63 04 F CALLS #4, LIBSSYS_FAO : 
52 9 D VL — RO STATUS : 
36 5 . BLBC = STATUS, 2$ F 
08 AE F PUSHAB $$BUFFDESC : 
64 03 FB CALLS #3, SCRSPUT_LINE : 
52 50 D0 MOVL RO. STATUS ; 
2A 52 £9 BLBC STATUS, 2$ ; 
E oi D MOVO #1, =<(SP) : 
08 AE 0200 8F 3¢ MOVZWL #512, $$SBUFFDESC ; 
OC AE 10 AE 9€ VAB_ $$BUFFER, SS$BUFFDESC+4 F 
08 AE OF PUSHAB $$BUFFDESC : 
OC AE 9F 0 PUSHAB $$BUFFDESC : 
FEOF CF OF PUSHAB P.AAC : 
63 g3 FB 0009D CALLS #3, LIBSSYS_FAO : 
52 0 DO 000A MOVL RO. STATUS F 
7E 52 E9 000A LBC STATUS, 10$ : 
08 AE F O00A6 PUSHAB $$BUFFDESC : 
64 03 FB OO0A9 CALLS #3, SCRSPUT_LINE F 
52 29 DO OOOAC MOVL RO, STATUS ; 
? 5 59 OOOAF 2$ BLBC STATUS, 10$ : 
7E oi D 00082 3$ MOV #1, =<SP) : 
08 AE 0200 8F 3C 0008 MOVZWL #512, S$SBUFFDESC : 
OC AE 1 aE 9 0088 MOVAB $S$BUFFER, SS$BUFFDESC+4 ; 
000000006 0 2 99¢ ist STATUS_DESC F 
50 000000006 88 D ita MOVL § STATUS_DESC+4, RO : 
69 DD O00¢F PUSHL (RO) ; 
0 11 00001 BRB : 
E D4 9005 4$: CLRL = (SP) ; 
6 D3 0005 5$: TSTL  NODE_DESC ; 
5 13 00007 BEQL $ ; 
50 68 9 0009 MOVAB NODE_DESC, RO : 
07 11 000DC BRB 7$ ; 
50 000000006 $8 9 aoe 6$: NOVAB TERMINAL_DESC, RO ; 
000000006 2 O0E TSTL DENT_DESC : 
8 OOED BEQL ; 
50 000000006 dO OO0EF MOVL  IDENT_DESC+#4, RO : 


1136 
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| 15 
if T 18-32 -1984 41:37 VAX-11 Bliss-32 V4.0-74 
' v04-000 12-08-1384 $7535 :3; DI SKSVMEHASTER SLACK SRCTFORMAT.832;1 
D F PUSHL (RO) 
p A ors BRB 9$ 
ps FA gs: CLRL = = (SP) 
90000006 F OOOFC 9$: PUSHAB USER_DESC 
| 00000006 3 1 PUSHAB SUBTYPE DESC 
444444 F 001 PUSHAB TYPE_DESC 
000000006 DD 0010€ PUSHL FINISH TIME_DESC+4 
gs AE 9F 00114 PUSHAB $$BUFFDESC 
8 AE 9F 00117 PUSHAB $$BUFFDESC 
FEDA CF 9F OO1IA PUSHAB P.AAE 
$3 A FB OO11E CALLS #10, LIBS$SYS_FAO 
2 9 D 91 7 MOVL RO STATUS 
0¢ f 124 10$: BLBC STATUS, 11$ 
08 AE F 00127 PUSHAB $S$BUFFDESC 
64 Q FB OO12A CALLS #3, SCRSPUT_LINE 
2 0 00 0012D VL RO, STATUS 
0D 2g E8 01 BLBS §_ STATUS, 12$ 
DD 00133 11$: PUSHL STATUS 
000000006 00 01 FB 00135 CALLS #1, LIBSSIGNAL 
50 52 dO 0013¢ MOVL STATUS, RO 
04 0013F RET 
50 01 DO 00140 128:  MOVL #1, RO 
04 00143 RET 


; Routine Size: 324 bytes, Routine Base: CODE + OOCC 


seo 
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1$-Sep-19 4 23:41:37 VAX-11 Ol issese Vv 


Tet 1 
14-Sep-1984 11:52:04 DISKSVMSMASTER:CACC.SRCJFORMAT.B32;1 (5 


ROUTINE SHOW_FULL (BUFFER) = 


oO 


lee 
Functional Description: 

This routine is called to print the FULL form of an accounting record. 
Input parameters 

BUFFER = Address of a buffer containing the record to be detailed. 
Output parameters 

The appropriate formatting routine is called. 

| 


7 errors encountered are RETURNed immediately. 
TRUE is returned on a normal exit. 


buffer: ref bblock; ! Define buffer block format 


PALL ees UO Om Oe teased 
MEWN OO OODNOUS WN OOONCOUS WN -O0W 


day, !' Day number 
post_midnight: 


LA IAIANANIN AANA AAW 


DOO OOO O00 09.09 0909 09 00 09 I NI NI SS SN SS SSID DA AA AAA AA IIIT BB PPE 


ee a a ed ee etd ee ee ec ee ee a ce ee ee el ee ee ce ce ee ie ee ee ee ee ee ed ed 
a ed ed cd ed ca ce cd ed ch cn ce a ce a cd a ae ec cd cd ee ce ee ed ee ee ed ce ed ed ee ce ce el ee ee ee ee ee ee ee ee ee ee ee ee 
SARA SSS SARA AS SSIS ARUN SO Oo0 WA PU > OOo Gorn Pod -O0 Oren whe ee 


RIPIPIPLNIPINPINININY HANIA AILSRIPUDIPYPDNYINYNYINIPININYINIPYPIPINPININYININIDD 2 9 St 


Be Se Be Be Ge Se Se Fe Se Se Ge Fe See Fe Ge Fe Se Ge Se Ge Ge Ge Ge Se Se Se Ge Ge Se Fe Se Ge Fe Se Ge Se Se Se Se Se Ge Se Se Geos FF Se Se oe SH Ss Se Se Se ee coe 


' 
vector (2), ! Time since last day boundary 
scrbuf: vector Cots -byted. ! For screen buffering 
scrbufd: vector (2) initial (512, scrbuf), 

3 first_record : LONG INITIAL (TRUE), 
337 form_feed : INITDESC ('!*"), 
$36 buf: bblock (40), 3 

39 buf_desc: vector (2) initial (80, buf) 
340 Ling: bblock (40) initial (byte (rep 40 of ("="))), 
rt lLine_desc: vector [2] initial (40, Line), 

+g space: initial (" "), 
344 ill: vector C2] initial (1,space); 

45 LOCAL 
“a9 status: bblock Clong); ' Local “catch all"* status 
38 IF SCREEN (flags) AND NOT (.first_record) ! Screen oriented 

49 THEN BEGIN 

50 LOCAL rene: 

51 SET_CURSOR (SCREEN (LENGTH) -1, 1); 

26 caret (buf_desc, ad (‘Press RETURN for Next Record >"), Temp); 
54 - 

i SET_BUFFER (scrbufd); ! Establish buffer 

$20 if .first_record then ERASE_PAGE(); 

59 buf_desc (0) = .subtype desc [0] + 

0 (if subtype dots f03 neq 0 then 1 else 0) + 

1 -type_text_desc (0); 
62 CHSCOPY ( 


19-13 5-1986 3:4 VAX=11 Bliss-32 V4. Page 1 
eager TSBs Figs ib, PeeekdwtalSfeacckce sacSrormat.e32:1°% cf 


cpubtype desc er subtype desc oF 

(if .subfype_ dese f° neq O-then else 0 0), space, 
ger e- text_desc (OJ, .type_text_desc 

. buf desc C0), -buf_desc (1]); 


3 
) 


—5 2s 


erase_ Line (T, 
write_at (buf “dese, 1 » 1, REVERSE); 


Line desc (0) but ~gese (0); 
write_at (Line. _desc, o V3 


} Format ID portion of screen 
if .first_record then 
BEGIN 


write_at (ad(' Mooropee: *) 6,103 
Cad¢°UIC:") 64,385; | 
t (edi ‘Account ), 5,1 
bP Finish tine: ‘) i 38); 
(ad('Process ID:' ),6, ); 
t (ad Start tine: . °6,38); 
(ad(*Owner 1D:'),7:15; 
t (edt! "Elapsed Stas: ) 7,38); 
(ad('Terminal name: "5 81): 
at (ad('"Processor time:') 59%) 
(ad('"Remote node addr:'),9 9.15; 
(ad(' ‘Priority:' 
st (ad(*Remote ae’ name: 
t (ad('Privilege £31002 451 $6! 38), 
(ad( "Remote 11 1); 
("Privilege co $-383: ),11,38); 


write a 
write_a 
write_a 
write_a 
write_a 
write_a 
write_a 
write a 
write 
write_a 
write a 
write 
wrive a 
write_a 
writea 
write_a 
write 
writea 
write_a 
write” ~ 
set -Strol 


Queue entry:'),1 
inal status code: :*)* 12, 38); 
ueue name: a “a 


at m4 
Sy name:'),1 


inal status text: »,15,1); 


t (ad: 
(ad 
(ad 
(ad 
(ad 
L (17,SCREEN (LENGTH) - 35! 


(* 
hs 
fe 
- 
te 
1 


WIAA AAAI RIPON PINUPONONIND 2 2 2 OO 


First_record = FALSE; ! Set flag to new value 


if -user_desc (0) n 

then write at (XFAO i Oy AS'),user_desc),4,20) 
else write at_(XFAO (ad ("!12AS").fiLLT,4 4.305; 
erase_line (4, $7); 

i euic _binary. desc [0] neq 0 


mts pe Ben: £0} = af 

uic_desc = uic_buf; 

perform iLibssys iée (ad("!Z1"), 
vies esc ° 


vvvD 
eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


ay Ne *desc(1) 
write. at CXFAO” Ha (*! TOSKS' ) ,uic "eal 4,57) 
en 


else write_at (XFAO (ad ("!23AS"), fill).4,57); 


DIT B BS BB EEE EE PW 
WO OOBNOUS WN —O0On 


4 
410 
i 
i 
414 
415 
416 
417 
418 
419 


Be Se Se Be Be Se Be Be Se Se Se Se Se Se Se Se Ge FH Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Se Se Se Ge Fe Se Se Ge Se Se Se Se Ge Se Ge Se ee Ge Sees 


ee er ae eet ae ok ab 


15 
FORMAT 1 a 8 241: +H VAX-11 Bliss-32 V4.0-7 
v04-000 14-Sep-1984 2:52:04 DISK$V neh ASTER: cact. She FORMAT .B32;1 
: 420 1254 if -account_desc (0) wil 
: 421 1255 then write_at (XFAO (ad ("!8aS' 1) BG coung. 3 sc),5,20) 
3; 4 ¢ 1 $ else write_at (XFAO (ad ("i Bas’ »,fill),5, 8): 
3; & 1 if -finish_time_desc [0] n 9 0 
: 43h 1358 $ then rite at (HERD (ag (1 g8é 40:23) finish tine.desc (12),5,57) 
. ‘a . 
> 426 1260 if - iden siese 03 neq 0 
© ieee Semesters 
3 © ° ; 
: 429 1 8g i -start_time_desc [0] neq 0 
: : 9 : ¢: seen erite. at (XFAO (ad ("!20"),.start_time_desc [1]),6,57) 
<< é 1 66 if -queue_time_desc (0) neg 0 
3; 4 1267 4 then write at (XFAO (ad (°!23<!%D!> ueue_time_desc (1]),6,57) 
; 43% 68 else write-at (XFAO (ad (*!23AS'). fi G3 8397: 
: 436 1$70 if -owner_desc [0] neq 0 
: 13 ist) Bets | Seitecet leas (ag CBAs DHRU ODT eee O22 7420) 
: else writea ad (' *), fi 07,20); 
3 re 1378 4 gator’. _time_desc [0] neq 0 
; en 
: 441 1275 BUILTIN emul; 
: rei 1276 i ge | doy $009: “93 time, post_midnight); 
3; 44 1277 emul (Zref (160000 st_midni ht, re (0). post midnt ht); 
; “st 1978 4 urite. at (XFAO (ad (f '3uC '2%T'), day, post _midnight) ,7 ,05) 
: 446 1280 3else BEGIN 
: 467 1281 if -Queuve_time_desc [0] neq 0 
: tes 1588 4 — BEGIN 
: 450 1284 4 BUILTIN emul; 
3 «6451 1285 4 ereer dey sia sed_time post. midnight) 
: 452 1286 4 emul (Zref( 600 post midni ht, Zire (0); post midnight): 
3 rt gs + ? pita at tKFAG” toa” (° 'SuC !2T° , day, post _midnight),7 
: 435 1289 3 else write_at (XFAO (ad (°!15AS"), fill),7,65); 
: 457 1291 if .terminal_desc [0] neq_0 
: 458 1636 then write _at TXFAO (ad CT 7ast), terminal _desc),8,20) 
: $86 HSSe G glee. weste et CAD fag (oi7As") 0th) 8.2002 
> 461 1595 $ then BEGIN : 
; 46 1598 BUILTIN emu 
; 46 \$9 s tepeoy (aay, 800)7°p cpu. ties. post oMjdnignt) 
> 664 1298 emul (Zret (160000) > midnight, treft0 ‘post midnight); 
: 463 1939 4 ur ite, at (XFAO (ad (f 0c" .-day,post midnight) 8 
; 467 1301 else ate at Pyne (*!15AS"), FALL) ,8,65); 
: i address desc 
: $$? 1308 oon write. at gif. sod Maat desc (1)).9,20) 
; else write_a a 
3; 671 130¢ if -priority desc 
: 1307 2 else writeret TREAD « (aa cri a ett; 
; else w 
3: 474 1308 if -node_desc (0 
3: 4675 1309 then write_at (XFAO °3 OA S*) node dese) 4} ¢ 10, 20) 
: 676 1310 else write_at (XFAO (ad ("!6AS"), filly,1 


1f 15 
5-S$ ep-19 


FORMAT 3: VAX-11 Bliss-32 V4.0 15 
v0e-000 Zr8eea TSE HFSS a, NTS ehdntaleTeacckce saclronmat.e32:1°°" «bs 
: 477 1311 if -remote_id_ desc [0] n neg 0 

3; 47 1 1 then write_at (FAO (ad ('!T16AS"), Fr grote id gesc).11.20) 

: 47 131 else write at (XFAO (ag (*§16AS"), FILL), 71,20); 

; 480 1314 if privilege, desc [0] neq 0 

: 4681 1315 then 8 

; 4 1 1 write_at (XFAO (ad (°! o}o= or iyilege. desc £1)),10,57); 

3; 6 131 write_at (XFAO (ad ('! ae (.privilege_desc (1) + 4)),11,57); 

; 4 1 8 END 

: 485 131 else BEGIN 

: 486 1320 write_at (XFAO (ad ('!8AS'),filL),10,57); 

; 487 1321 write_ at (XFAO (ad ('!8AS'), filL),11,57); 

; 488 1 ¢ ND; 

: 489 1 if entry. desc (0) ne q 0 

: 690 1324 then write _at (XFAO (a a iz <!UL!>" ) (5°93°SS desc (1]),12,20) 

: 491 1325 else write_at ee ( ae (*i4aS"), FALE) J; 

; 49 1326 if -Queue_des 0. 

3: 49 1327 then Fite, at tXFAO (ad ( fy ae queu ue_ sess) 13,20) 

3; 496 1328 else write at se oy ("I 31AS") fill? 

3; 495 1329 if -job_desc 

; 496 1330 Ps pen eb at CiFAO” (ad (' ieoas. ae job de ges c),14,20) 

> 497 1331 ite~ at OXFAO (ad (°'39AS") FiLT), 14,20): 

; 498 1338 Erase _LINE (15,2 

3; 499 133 .Status vit C0] neq 0 

; 500 1338 : BEGIN 

; 501 1335 write_at (XFAO (ad ('!8xXL"), ..status_desc ([1]), 1g. 57): 

; 208 1338 urite. at (XFAO (ad ("!60AS')S, status _text_desc),15,20); 

; 504 1334 else write_at (XFAO (ad ("!8AS'), fill),12,57); 

3; 505 1339 

; 506 1329 ! 

3 444 i If process/resource usage info present, then format 

; 509 1308 if archi faults_desc [0] neq 0 then 

; 510 Fo 

3 «ST 1345 .last_display_type neq resource_display 

3 a1¢ 1346 4 + 

; (51 1347 4 ERASE _PAGE(17) 

; 514 1348 4 writes } "Page faults:"),17,1); 

; 515 1349 4 write-at (adi Direct 10:'),1?, 38) 5 

; 516 1350 4 write_at (ad('Page fault reads" 18,1); 

: 517 1351 4 writecat (ad("Butfered 10 38); 

; 518 133¢ 4 write-at (ad('Peak working set; f) 16.1 

: 519 1355 4 a (ad(*Volumes mounted:'),19 $8) 

: 520 1354 4 write a ad(’ "Peak page file: iy 50 958 

; 521 1355 4 write” at (ad("Images executed:'S, $6 diy. 

3 ; § ' 28 4 EN: Blaplay. type = resource yk af 

: 4 1358 if page _faults_desc [0] neq 0 

3 Ses 1a23 then wri e_at (XFAO ( (ogc !100t *),..page_faults_desc (1]),17,20); 
3; 326 1360 if direct io desc f F 

: 352 ' 1 then write_at by - , 0 (a ftp UL*),..direct_io_desc (1)),17,57); 

3 -page_ ree s ot 

3 529 ! 8 fon writers a tee Se oO) nes "Tout: *),..page_reads_desc (1]),18,20); 
: i éred_io_ desc 

: 331 ' $ then writes at TxF my 0 (a ad(*10UL' ),..buffered_io_desc (1]),18,57); 
; .wor set_desc 

; 338 1 83 then write_ 109. (XFRO (ad Oi N8dL *),..working_set_desc (1]),19,20); 


15 
F T 18.52 “19 :41:37 VAX-11 Bliss-32 V4.0-74 P 16 
-000 Ve-8ep-1986 1:52:06 DLSKSYMGHASTERSEACE SRCSFORMAT.032;1° °° (4S 
; 1 rt: if -volumes_desc [0] neq 
3 5 1 § then write_at (XFAO Cage '10UL"),..volumes_desc (1]),19,57); 
3 1370 if -bage file desc [0] neg 
; 1371 then wri eat (RFAO (ad ("!TOUL"),..page_file_desc [1]),20,20); 
: 1 ie if execution desc (0) neg 
: 9 137 then write at (RFAO (ad(*!10UL"),..execution_desc (1]),20,57); 
otc tee tee 
; 508 ; rt If symbiont resource information present, then format 
: 544 137 if -sym_qio_desc [0] neq 0 
bE Sova Ten 4 Os Ge “sae ateahan sete oon rink atten 
; .last_display_type neq print_displa 
: 328 1381 4 =u CCS ee: 
: 548 1 8¢ 4 ERASE_PAGE (17); 
> 549 1385 4 write_at (ad('GETs from source:'),17,1); 
; 550 1384 4 write-at (ad('QI0s to printer:'),18,1); 
3 $2) 138? 4 write_at (ad('Pages printed: ') 19,15; 
3 225 1386 4 last_display_type = print_display; 
> 554 1388 write_at (XFAO (ad('!10UL"),..sym_get_desc 12) 17.20); 
: 399 1355 write at (XFAO (ad(°!10UL"),..sym_qio_desc (1J),18,20); 
: 556 1390 write_at (XFAO (ad("!10UL"),..sym_page_desc (1)5,19,20); 
3 Sor 1391 END; 
; 558 1338 
s So? 139 if -image_file_desc [0] neq 0 
; 560 139¢ then BEG 
: 561 1395 ERASE_PAGE (22); 
; 206 1396 write_at (adi “image name:'),22,1); 
: 56 1397 write at (XFAO (ad ("!60AS'S, image_file_desc),22,13); 
; 564 1398 END; 
: 565 1399 2 if -file_desc [0] neq 0 
> 566 1400 then BEGIN 
; 567 1401 ERASE_PAGE(17); 
; 568 1008 write_at (ad( "File name:*) .22,1); 
; 569 140 writeat (XFAO (ad (*!60AS"), file_desc),22,12); 
; TA! 1698 last_display_type = file_display; 
3 278 1406 if -user_data_desc [0] neq 0 
s Oe 1407 then BEGIN 
: 574 1408 OWN ptr 
; 575 1409 ERASE _PAGE(17); 
: 576 1410 last_display_type = user_display; 
: 207 1411 tr = .user_data desc [1]; 
: 578 iste HILE (.ptr LSSU (.user_data_desc [1] + .user_data_desc [0])) and 
; 579 141 (.ptr LSSU (.user_data_desc [1] + (6*16))) do 
; 580 1414 4 BEGIN 
; #581 P1415 4 write_line (XFAO (ad (°!XL XL IML IML '16AF 'm.°), 
3 286 © 1018 4 -(.ptr+12), .(.ptr+8), .(.ptr+4), .(.ptr) 
; 58 1417 4 Zref(16), .ptr, (.ptr - .user_data_desc C11); 
: 584 1418 4 nM = .ptr + 16; 
; 585 1419 ND; 
3 206 1420 ‘ 
3 3H i$ 1 PUT_BUFFER (); ! Flush buffer and turnoff buffering. 
: 359 14 : WHILE pie LSSU (.user_data_desc [1] + .user_data_desc [0]) do 
; 590 1424 & BEGIN 


H 1 
1.3 -1984 23: 7 VAX-11 Olisse 32 V 17 
-000 14-Sep-1984 #7 £33: 3 DISKSVMSMASTER: chee OCACIFORMAT.832:1" 31 a (5) 

>; 591 1425 if SCREEN (flags) 

3 3 14 $ then BEGIN ° 

; 14 LOCAL tyee: 

> 594 14 8 ERASE_LINE (SCREEN (Length) - 1, 1); 

; 595 P 14 GET_REP uf _desc 

; 38 P 1? ? =  erees RETURN for more User Message > '), 

3 ‘ em . 

; 598 14 § SET_CURSOR CSEREEN (LENGTH) = 2, 1); 

; 599 14 4 D> 

: 600 P 1434 4 write_line CXF AO tod on) | Gaee | Giese | Gees § '16AF 'XL"), 

3; 601 P1435 4 -(.ptr+12), .(.ptr+8), .(.ptred), .(.ptr) 

; 60 14 4 iret(16), -ptr, (.ptr - .user_data_desc Ci2))); 

; 60 1437 4 = = .ptr + 16; 

; 604 1438 ; ND; 

; 605 1439 END 

3 606 ree else PUT_BUFFER (); ! Flush buffer and turnoff buffering 

; 608 4 | IF SCREEN (flags) then 

; 609 144 GIN 

; 610 1444 ERASE_LINE (SCREEN <length) - 1, 1); ! ERASE ‘Press return" 

3; 611 1445 END; 

3 ol¢ 1446 

: 61 1447. RETURN true; 

3 614 1448 1 END; 


.PSECT DATA,NOEXE,2 

00005 .BLKB 
8 DAY: -BLKB 
0000¢ POST MIDNIGHT: 
SCRBUF: :BLKB 


00014 12 
00000200 00214 SCRBUFD:.LONG 12 3 
00000000" 00218 ADDRESS SCRBUF 3 
00000001 0021C FIRST -RECORD : 1 
00000002 00220 een deat 2 
00000000° 00224 ADDRESS P.AAG 3 
00228 BUF: -BLKB 40 
00000050 00250 BUF_DESC: 
-LONG 80 3 
00000000" 00254 [ADDRESS BUF 3 
D 88 58 LINE: eASCII \=\ F 
D 00259 eASCII \=\ 3 
D OO25A ASCII \-\ r 
D 00258 eASCII \=\ F 
D 0025C ASCII \H-\ 3 
D 0025D ASCII \=\ ; 
D 0025E ASCII \H-\ ; 
D 0025F eASCII \e\ : 
D 00260 ASCII \H\ 3 
D 61 ASCII \H-\ 3 
D $6 ASCII \H\ : 
D 0026 eASCII \eH\ : 


nesters neater ’ j 
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p 
DIKSVMGHASTERSLACE SRCSFORMAT.032; 1° 2% ( 


A 
oO 
Vv 
A 
Oo 
v 
= 
A 
~~ ao) 
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| 4 °o 
| o re) 
| 2 a 
| ~w < 
> 
~ 
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g 2 oO 
o v | 
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@ A = Vv 
2 o - = 
- A ~ = Vv o f 
- So . a =“ i= a 
A v —- Ae - ” -— — 
3 A «ze ow : . ~ 
< o a va ew “ 
> Vv A e c <= 4) 
A ww zon —c wo 3s ow aoe 
wo vw *_ Vow <= qj ae °o Ze = re) 
Z2zv <« w © eo «wu w) e€ °o 
SAA AA AA AA EAA A AAP AAA AAA A A —- a a ¢<t nw omy “uw om e 
mwrerettteeeeeeeeewewee tee ake ata aktlake ake ake ak ak kak OO ” oOo --a oat arn act auwaar 
MO SAA ALAA AL AAA AOA AAA AOA O AO? AA? E QZ Lor 2B AA Mm AO 4 20D 42- 
” ” ” ” 7.) ” ” 
-—-~™ ” ” ” ” ” ”" ” 
ww Sd OG Os Od Od Od Od Od Og Bd Og Og nd Od OG nd Og Od Og Od On Od nd On On Od we ta ee. — we we Lad Lajos we 
oo oe od Og Od ad Od Od Od Ong Og Og Od Od ad Od Pd nd Od ng Dy Od ed med ad Od Od Dy Og Uac-Uacgm uw ae (7. ay. ay. ay. al. a) 
MK —_/§ VOY VVYVVVU VU VUVYUYUUYUUUYUYUYUYY ZavcZaxz~ w ww Zav ZaovZovZavZow 
N— NMMMMWMVWNVWVWVVVWHHWHNUAVWVWHVWHWHVWHHVWMWWHWMHYUNYNMW DAVrCAY WW NW SQaMVoQaMWoavoaMWoan 
qdq@dddddddd ddd deeded deeded eee ede udatiud@m@a cat eS oe ef ee ee ae es 
4 e*eeete ete e#se#ee##e#e#e#e © # © © © © © @© @ Rk oe ae e*eeee#ees. . ee e*eee«#e#e+goee#eesr+fgoee#e#ere#e#srkhe#e#st#es* # @ 
ao w 
— Qa oe eee eee 
‘6 a we: on = =u sz o2z oa 
aa w vu Lt <« «<< <« «a «a <« 
mee = <I « << «a «a «a aa <a <« 
wm oe aes ee . ee ee ee ee 
2 ad Yu a aa a aaaaaa aa a 
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15 
14.5e “19 2:41:37 VAX-11 Bliss-32 V4.0-74 P 19 
12-8 08- 198 $f:9h:37 DT EKSUNGHASTER-CACE Sac SFORMAT 32; 1 — (5) 
009000 . 0G Pe aaRe ADRESS. P.AAS 
00 3A 65 6D 69 76 20 764 72 61 7% 94 P.AAU: .ASCII \Start time:\<0> : 
0 $9 4 AO P.AAT: .LON 11 : 
0000" 002A4 ADDRESS P.AAU : 
00 00 00 3A 44 49 20 72 65 GE 4F AS P.AAW: .ASCII \Owner ID:\<0><0><0> : 
4 9 B4 P.AAV: .LON : 
000 P B88 «ADDRESS P. AAW : 
65 6D 69 74 20 64 65 73 70 6% 6€ $6 $ * P.AAY: .ASCII \Elapsed time: \<0><0><0> : 
90000000 O2CC P.AAX: .LONG 13 ; 
Ooyg00 0° : dO -ADDRESS P.AAY : 
6D 61 6E€ 20 6C 61 6E 69 6D 72 6 3 9 Do P.ABA: .ASCII \Terminal name: \<0><0> : 
SEH 0 ES agit LODRES P.ABA ; 
69 74 20 72 6F 73 73 65 63 6F 99 3 ; 3 P.ABC: .ASCII \Processor time:\<0> : 
QOOOO00F OO02FC P.ABB: .LONG 15 : 
Coyyooy * 00300 ADDRESS P.ABC 3 
20 65 64 6F 6E 20 65 74 6F g 00304 P.ABE: .ASCII \Remote node addr: \<0><0><0> : 
00 00 00 3A 7 Soei3 3 
0000001 0318 P.ABD: .LONG 17 : 
00990099" Bo ais ADDRESS P.ABE 3 
06 00 00 3A 79 74 69 72 6F 69 3 50 00320 P.ABG: .ASCII \Priority:\<0><0><0> : 
00000009 0365 -ABF: .LONG 9 3 
009900 . 33 ADDRESS P.ABG 3 
20 65 64 6F 6E 20 65 74 6F 8 52 00334 P.ABI: .ASCII \Remote node name: \<0><0><0> 3 
00 00 00 3A 6 paitet 3 
00000011 00348 P.ABH: .LONG' 17 : 
00990090" 0034¢ ADDRESS P.ABI ; 
33 3c 20 65 67 65 6C 69 7% ¢8 $3 00350 P.ABK: .ASCII \Privilege <31-00>:\<0><0> 3 
00 00 3A 3E 0035F 3 
0000001 tye: P.ABJ: .LONG 18 3 
0099009 * 00368 ADDRESS P.ABK 3 
00 00 3A 44 49 20 65 74 6F 6D 65 52 0036C P.ABM: .ASCII \Remote ID:\<0><0> 3 
QO000000A 00378 P.ABL: .L 3 
ess 0° te -ADDRESS P.ABM g 
36 3c 20 65 67 65 6C 69 76 68 0380 P.ABO: .ASCII \Privilege <63-32>:\<0><0> 3 
00 00 3€ Oar 3 
0000001 0394 P.ABN: .LONG 18 3 
000900 . S330 -ADDRESS P.ABO g 
3A 79 72 74 6E 65 20 65 75 65 1 039C P.ABQ: .ASCII \Queue entry:\ 3 
008 45 BAe P.ABP: .LONG 1 2 
00 . AC -ADDRESS P.ABQ : 
73 75 74 61 74 73 20 6C 6! ge 69 46 00380 P.ABS: .ASCII \Final status code:\<0><0> 3 
00 A 65 64 0036F 3 
raised 03C4 P.ABR: .LONG 18 3 
0990 * 0058 ADDRESS P.ABS 3 
00 3A 65 6D 61 6E€ 20 65 75 65 0 cf P.ABU: .ASCII \Queue name: \<0> 3 
eae 0308 P.ABT: .LON $ 
0000000° 0030¢ -ADDRESS P.ABU - 
00 00 00 3A 65 6D 61 6E 20 62 6F 4A OO03EO P.ABW: .ASCII \Job name: \<0><0><0> 3 
aaa'eg'ed : cf P.ABV: .LONG 9 ; 
at oe . F -ADDRESS P,ABW 3 
73 75 74 61 74 73 20 6C 61 gf 8 4 O3F4 P.ABY: .ASCII \Final status text:\<0><0> $ 
00 00 3A 74 7 0403 3 
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9 15 
15-Sep-1 3: VAX-11 Bliss-32 V4.0-74 2 | 
14- ~300n 138% 7 :¢3: 3. DISKSVMSMASTER: cact. SRC JFORMAT .B832;1 a (8 } 
9 62C P.AEV: .LONG § : 
: ADDRESS P,AEW : 
P.AEY: ASCII \!31AS\<0><0><0> : 
5 f P.AEX: .LONG 5 : 
° 4 ADDRESS P.AEY : 
4 P.AFA: ASCII \!39AS\<0><0><0> ; 
0 af P.AEZ: .LONG 5 : 
0 . 5 ADDRESS P.AFA : 
654 P.AFC: <ASCII \!39AS\<0><0><0> : 
0005 226 P.AFB: ONG 5 : 
0000" «ADDRESS P.AFC $ 
1 64 P.AFE: ASCII \!8XL\ : 
0004 68 P.AFD: .LONG 4 é 
0000' Beek ADDRESS P.AFE 3 
1 00670 P.AFG: SCII \!60AS\<0><0><0> : 
0005 00678 P.AFF: .LONG 5 3 
0 * 0067C eADDRESS P.AFG 3 
1 00680 P.AFI: ASCII \!8AS\ : | 
00 4 00684 P.AFH: .LONG 4 : 
00 O0ye" 0688 ADDRESS P.AFI : 
61 50 Q068C P.AFK: .ASCII \Page faults:\ : 
0000000C 00698 P.AFJ: .LONG g 3 
00000000" 0069C¢ - ADDRES AFK : 
69 & O6A0 P.AFM: .ASCII valoont 10:\<0><0> é 
OOOOA OO6AC P.AFL: .LONG 3 
+0000000° 00680 -ADDRESS P 3 
; bees P.AFO: .ASCII Vay ‘fault reads:\<0><0><0> : 
0011 006C8 P.AFN: .LONG v7, : 
0op70098" Bpece “ADORE SS P 3 
4 0600 P.AFQ: ASCII * A 10:\ 3 
0000000C 006DC P.AFP: .LON 3 
009900 $" 06E0 ADDRESS P.AFQ 3 
1 Ooers P.AFS: .ASCII \Peak working set: \<0><0><0> ie 
00000011 Socks P.AFR: .LONG 17 : 
270090" O6FC -ADDRESS P.AFS ; 
F $2 fh! P.AFU: .ASCII \Volumes mounted: \ 3 
00000010 Barto P.AFT: .LONG 6 3 
00000000" 00714 eADDRESS P.AFU 3 
36 aris P.AFW: <ASCII \Peak page file:\<0> : 
00000 0728 P.AFV: .LONG 15 : 
wt 072C -ADDRESS P.AFW d 
2 4 : P.AFY: .ASCII \Images executed: \ 3 
00010 00740 P.AFX: .LONG ’ 3 
00000' tbe eADDRESS P 3 
1 748 P.AGA: .ASCII ut tdue \ct><to-cts 3 
Bf 30 P.AFZ: .L 3 
* 00754 -ADDRESS P ; 
4 758 P.AGC: .ASCII FOUL \<0><0><0> 3 
0005 00760 P.AGB: .LONG 5 : 
0000 764 -ADDRESS P.AGC : 
1 168 P.AGE: .ASCII \!10UL\<0><0><0> 3 
0005 00770 P.AGD: 5 : 


63 72 75 


72 65 74 


31 80 
#8 


So 
So 


Ss Ss 


oo 
oo 


oo 
oo 


oo 
oo 
Ausra 


OoOP>rwNNco—-coo—-co0-o0o~-"oo-"9 


oo 
WN "Oa £O 
>-O- INO 


oo 


000 


00000010 


Ssssssssse 


14.32). 


138% $3:93:37 VAX-11 Bliss-32 V4.0-7 
14-Sep-19 1:52:04 DISKSVMSMASTER:CACC.SR 
774 ADDRESS P.AGE 
778 P.AGG: .ASCII \!i0UL\<0><0><0> 
780 P.AGF: .LONG 5 
7 ADDRESS P.AGG 
788 P.AGI: .ASCII \!10UL\<0><0><0> 
790 P.AGH: LONG 5 
794 ADDRESS P.AGI 
798 P.AGK: .ASCII \!10UL\<0><0><0> 
7A0 P.AGJ: LONG 5 
7AG ADDRESS P.AGK 
7A8 P.AGM: .ASCII \!10UL\<0><0><0> 
$780 P.AGL: .LONG 5 
7B4 eADDRESS P.AGM 
bres P.AGO: .ASCII \!10UL\<0><0><0> 
O7CO P.AGN: .LONG 5 
764 ADDRESS P.A 
ie P.AGQ: .ASCII \GETs from source: \<0><0><0> 
O70C P.AGP: .LONG 17 
07E0 -ADDRESS P.AGQ 
the P.AGS: .ASCII \QI10s to printer:\ 
O7F4 P.AGR: .LONG 16 
07F8 ADDRESS P.AGS 
444s P.AGU: .ASCII \Pages printed: \<0><0> 
O80C P.AGT ~LONG 14 
0810 «ADDRESS P.AGU 
0814 P.AGW eASCII \!10UL\<0><0><0> 
081C P.AGV LONG 5 
0820 eADDRESS P.AGW 
0824 P.AGY: .ASCII \!10UL\<0><0><0> 
082C P.AGX ~LONG 
0850 ADDRESS P.AGY 
0834 P.AHA: .ASCII \!10UL\<0><0><0> 
O83C P.AGZ: .LONG 5 
0840 ADDRESS P.AHA 
0844 P.AHC: .ASCII \Image name: \<0> 
0850 P.AHB: .LONG 11 
0854 ADDRESS P.AHC 
0858 P.AHE: .ASCII \!60AS\<0><0><0> 
0860 P.AHD: .LONG 5 
0864 ADDRESS P.AHE 
9308 P.AHG: .ASCII \File name:\<0><0> 
0874 P.AHF: .LONG 10 
Bare ADDRESS P.AHG 
7C P.AHI: .ASCII \!60AS\<0><0><0> 
84 P.AHH: .LONG 5 
ae ADDRESS P.AHI 
a P.AHK: .ASCII \IXL 'XL oSML OIL OL T6AF 
AA 


2.0000 00000000 00 
ow, 
RWS OnOm 
wv 
> 
= 
= 


on 


-LONG 32 
-ADDRESS P.AH 
ASCII 


- AWK 
\Press RETURN for more User Message > \<0> 


* P 
CJFORMAT.B32;1 


Pee Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Ge Ge Ge Se Be Ge Se Se Se Se Se Be Se Fe Se Se Fe Fe Fe Fe Ge Fe Se Se Fe Se Se Se Se Se Fe Fe Se Ge Se Ge Ge 


18 


3} $0 36 30 6 Gf 8 Sf BF fo 88 80 af 


000000006 


000000006 


000000006 


000000006 


000000006 


00000000" EF 


00000006 


FDEC fF 
45 000000006 00 
3€ 00000000° Fr 
7E 000000006 +4 
00 00 
3 50 
2 52 
04 AE 
FEF4  =CCF 
00000000° EF 
00 03 
52 50 
OC P) 
8F 5 
1372 
00000000" EF 
00 01 
52 50 
EA 52 
11 00000000" Fr 
01 
00 Q 
52 5 
BS 000000006 a 
57 
9? 
1 
50 0 
$$ 
§ 
31 


50 

8 000000006 
50 0 

05 


16 
18-36 “1984 23:41 
1a=88p-1984 #7393: 
tty ASCII 
Of P.AHL: .LONG 
E - ADDRE 
E4 P.AHO: .ASCII 
1 QO8F 
090 
0904 P.AHN: .LONG 
0908 - ADDRES 
EXTRN 
EXTRN 
EXTRN 
EXTRN 


OFFC 00000 SHOW_FULL: 
WO 


43 8000 MOVAB 
E9 0000 BLBC 
E8 0000 BLBS 
be 0001 PUSHL 

C 00017 MOVZWL 
D7 4 $3 ECL 
FB 000 CALLS 
DO 00027 VL 
&? 0002A BLBC 

F Bo0¢8 PUSHAB 
9F 00030 PUSHAB 
9F 00034 PUSHAB 
FB O003A CALLS 
DO 00041 MOVL 
E8 00044 BLBS 
D1 00047 CMPL 
13 Q004E BEQL 
31 00050 1$: BRW 
9F 00053 2$: PUSHAB 
FB 00059 CALLS 
dO Bones VL 
E9 0006 BLBC 
E9 00066 BLBC 
DD 0006D PUSHL 
DD OO006F PUSHL 
fe ef CALLS 
DO 00078 MOVL 
E9 bare BLBC 
DO 00 43 3$: MOVL 
D4 0008 CLRL 
03 00087 TSTL 

1 +34 BEQL 
D6 00088 INCL 
DO 00080 MOVL 
11 00090 BRB 

D4 00092 4$ CLRL 
CO 00094 5$ ADDL2 
oY 0097 MOVL 

C1 QO09E ADDL3 
DO O00A6 OVL 
E9 OOOAD BLBC 


ti VAX-11 Bliss-32 V4.0-74 
4 DISKSVMSMASTER: CACC.SACJFORMAT.832;1 
< 


HM 
ML IML IML IML ! 16AF 'XLN 


R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
SP}, §P 


(SP), 
EN_CHAR, 2$ 
T_RECORD, 2% 


EN_CHAR+6, (SP) 

SCRSSET_CURSOR 
TATUS 

TUS, 1$ 


AYNDBR-YVvaenoin 
M4AONINO A OWN 


P. A 
BUF _DESC 
#3, SCRSGET_SCREEN 
RO, STATUS 

STATUS, 2$ 

STATUS, #LIBS$_INPSTRTRU 
170$ 

SCRBUF D 

#1, SCRSSET_BUFFER 

RO, STATUS 

STATUS, 1$ 
FIRST_RECORD, 3$ 

# 

gt 

#2, SCRSERASE_PAGE 

RO, STATUS 

STATUS, 1$ 

SUBTYPE _DESC, R7 


R1 
R? 

4$ 

R1 

#1, RO 

5$ 

R? 

R7, RO 
TYPE_TEXT_DESC, R11 
R11,~RO, BUF _DESC 


SUBTYPE _DESC#4, RO 
Ri, 6$ 


Pete Oe 


Sete Se Se Se Se Se Se Se Se Be Se 


rae is 


1140 
1182 
1185 


1186 


1189 


1191 


ge et9 4 93:41: 
46-Sep-1984 11:52: 


v04~000 


58 20 


58 20 00000000° 


8$: PUSHL 


jolololololololelololoelolololelolololeio) 


ee ee ee een oa ee een ee pee ee ee eee 


000000006 00 


00000000" 
000000006 0 
52 
7D 


000000006 
00000000" pF 00000000" 


00000000° 
000000006 00 


03 esasanadl™ 
9$: MOVQ 


F7D9 
000000006 


MO 
10$: BL&C 
MO 


Nw 
o 
> 
<~— 
al 
“ 


SASSAASSSA=SSNSS FPWOIWOO YS NOMOOO™ 


F7CF 
000000006 


DVWNOM CNVMNOM COMM NMNMDMOOM MNMNOOOMNMOM OOOUMODOOA NNN VV SH VETIMONOO 
—MO LBENNO BHA NABNMO & MM -2 MVUONN WO & 4] | NWNON “OTD PF POPE NNMON OPN — 


B88 8 SS SS SSS SSSSSSSSSSS333SS3S3S33S33333333s33ss3ss3sssssssss 


WMO MOS FMS NOS VWIMMS MOS NOMI NOOMIOVIIMIOZNSOSO MOO MOO woUVTIITIT-7g 
TOO "990 NOW 79090 —“ BOOT "TV OWOODWIIT OODM"OVTVT CODIIO SPMVM0O® OMVvNce®e ™oOooFf—o 


Pelee leleleleleleleleleloleloleleloleleloleleleleleleleloloeloelolelololq) 


7 VAX-11 Bliss- 
4 DISKSVMSMASTE 


#1, R10 
7$ 


: CACC 


R10 
TYPE TEXT _DESC+4, RO 
BuF _BeSsc, R 

BUF -DESC4+4, R6 
R7,-(RO), #32, RB, (RO) 
8$ 

R7, R 


R7. R 
R16, SPACE, #32, RB, (R6) 


9), #32, RB, (R6) 
#1 

#1 

#2, SCRSERASE_LINE 
RO, STATUS 

STATUS, 10$ 

#2 

#) 

BUF _DESC 

#4, SCRSPUT_SCREEN 
RO, STATUS 

STATUS, 11$ 

a 

a. SCRSERASE _LINE 
RO, STATUS 

STATUS, 11$ 

BUF _DESC, LINE_DESC 
#1, =(SP5 
LINE_DESC 

#4, SCRSPUT_SCREEN 
RO, STATUS 

STATUS, 12$ 

f RST_RECORD, 9$ 
#1, -(SP) 

By 


P.AAJ 
+e SCRSPUT_SCREEN 
STATUS, 13$ 

#38, -(SP) 

a 

P.AAL 

#4, SCRSPUT_SCREEN 


STATUS, 14$ 
wi, -(SP) 
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1 
05 po 189 PUSHL #5 : 
F7C9 CF OF 001 PUSHAB P.AAN : 
000000006 99 4 §B 0018F CALLS #4, SCRSPUT_SCREEN : 
g D 1 MOVL R AT : 
$8 : 199 118: BLBC STATUS, 15$ : 
E : D o19¢ MOVO #38, =(SP) + 1215 
pp 19F PUSHL # : 
F7C7 «CF OSF «001A PUSHAB P.AAP : 
000000006 99 4 FB OOTAS CALLS #4, SCRSPUT_SCREEN ; 
9 DO O01AC MOVL STATUS : 
$8 : O1AF BLBC STATUS, 16$ : 
e 01 D O18 MOVO #1, =(SP) t 1216 
; pp 1B PUSHL #6 : 
F7CS «= CF O9F «(0018 PUSHAB P.AAR : 
B ALLS #4, SCRSPUT_SCREEN ; 
000000006 9 FB O18 CALLS ui $PUT 
68 52 59 gic 12$:  BLBC STATUS, 17$ F 
7E 36 D 001¢8 MOV #38, -(SP) + 1217 
6 DD 001¢8 PUSHL : 
F7C3. «CF OOF ~001CD PUSHAB P.AAT : 
000000006 00 04 FB 00101 CALLS #4, SCRSPUT_SCREEN ; 
52 29 DO 00108 MOVL R F 
68 5 9 001DB 13$:  BLBC STATUS, 18S ; 
7E 01 7D 0010 MOVQ #1, -(SP) : 1218 
07 DD 001E1 PUSHL #7 ; 
F7C1 CF 9F OO1E3 PUSHAB P.AAV ; 
000000006 00 04 FB OO1E7 CALLS #4, SCRSPUT_SCREEN : 
52 0 DO OO1EE MOVL RO. STATUS ; 
68 52 €9 OO1F1 14$: BLBC STATUS, 19S : 
7E 26 7D 001F4 MOVQ #38, -(SP) : 1219 
07 DD 001F7 PUSHL #7 ; 
F7C3. CF OOF 001F9 PUSHAB P.AAX : 
000000006 00 04 FB OO1FD CALLS #4, SCRSPUT_SCREEN ; 
52 50 00 00204 MOVL RO, STATUS ; 
6B 52 9 00207 15$:  BLBC STATUS, 20$ : 
7E 01 7D 0020, MOVO #1, -(SP) : 1220 
08 DD 00200 PUSHL #8 : 
F7CS CF OF 0020F PUSHAB P.AAZ ; 
000000006 00 04 FB 00815 CALLS #4, SCRSPUT_SCREEN : 
52 0 09 iA MOVL RO, STATUS ; 
68 52 E 0021D 16$:  BLBC STATUS, 21$ : 
7E 36 D MOVO #38, -(SP) : 1221 
8 DD 00 SHL #8 : 
F7C7? «CF OOF 0 PUSHAB P.ABB ; 
000000006 99 4 F CALLS #4, SCRSPUT_SCREEN - F 
5 0 DO 00 MOVL RO. STATUS ; 
6B 52 €9 00233 178: BLBC STATUS, 22$ ; 
7E 01 7d 00 mOVO #1, -<(SP) > 1222 
09 DD 00 PUSHL 4&9 ; 
F7CD «6OCFCsOSF:s«00 PUSHAB P.ABD ; 
000000006 00 4 FB 0023F CALLS #4, SCRSPUT_SCREEN : 
52 0 DO 00246 MOVL RO, STATU ; 
68 : E 0249 18$:  BLBC STATUS, 23$ ; 
E 36 D 0024C MOVG #38, -(SP) : 1223 
D 00Z4F PUSHL #9 ; 
F7CB OCF OF «00251 PUSHAB P.ABF : 
000000006 00 04 FB 00255 CALLS #4, SCRSPUT_SCREEN : 


: 


MONS 


move 


MONS Mane 


NOWO 
mMmmMmrooe 


NSVMIVIO 
Momeoe 


SNMNOS 
mono 


SINUS 
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mare 
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F707 


F7D5 


F7DB 


F7D9 


F7DF 


F7DD 


F7DB 


F7E1 
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46-Sep-1984 
19$: BLBC 
MO 
208: BLBC 
MO 
MO 
218: BLBC 
MO 
MO 
22$ BLBC 
M0 
7 238: 
A 
D 
F 
3 
A 
p 243: BLBC 
3 
5 PU 
9 
0 MO 
3 25$ BLBC 
6 MO 
9 
5 
F 
6 MO 
z 268: BLBC 
F 
1 
5 
Cc MO 
F 278: BLBC 
g MO 
7 
288: 
8 


RO STATUS 
STATUS, 24$ 
wi, -(§P) 
#16 


P. ABH 
#4, SCRSPUT_SCREEN 


STATUS, 25$ 
#38, -(SP) 
#10 


P.ABJ 
#4, SCRSPUT_SCREEN 
TUS 


RO, 

STATUS, 26$ 
wi, -(SP) 
wii 


P.ABL 
#4, SCRSPUT_SCREEN 


RO, STATUS 
STATUS, 27$ 
#38, -(SP) 


P. ABN 
#4, SCRSPUT_SCREEN 
TUS 


RO, 

STATUS, 28$ 
#1, -(SP) 
wie 


P. ABP 
#i, SCRSPUT_SCREEN 
TUS 


RO, 

STATUS, 29% 
#38, -(SP) 
#12 


P.ABR 
#4, SCRSPUT_SCREEN 


RO, STATUS 
STATUS, 29S 
wi, -(§P) 
#13 


RO, 

STATUS, 32$ 
wi, -(§P) 
wid 


RO, STAT 
STATUS, 33% 
wi, -(§P) 
wis 


P.ABX 
#4, SCRSPUT_SCREEN 
TAT 


RO, § 
STATUS, 33$ 


SCREEN. CHAR+6, -(SP) 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER:CACC.SRCJFORMAT .832;1 


P.ABT 
#4, SCRSPUT_SCREEN 
STATUS 


P.ABY 
#4, SCRSPUT_SCREEN 


tret 


1224 


1225 


1226 


1227 


1228 


1229 


1230 


1231 


1232 


1233 
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FORMAT 15-Sep-1984 23:41:37 VAX-11 Bliss-32 V4.0-74 Pa 8 
04~000 12-9 08-1 382 47:9): 4 DISKSVMGMASTER CACC SRCTFORMAT.832; 1 - (83 
fF 


bE 02 C2 SUBL2 #2, (SP) ; 
DD H wi? ; 
000000006 99 F CALLS ae SCRSSET_SCROLL : 
D Vv RO, STAT ; 
48 E 9$:  BLBC STATUS ; 
0000990 ' €F ps 41 30$:  CLRL FIRST RECORD 3 1236 
OC AE 020 F 47 MOVZWL #512, $SBUFFDESC + 1239 
000000006 0 b 4 Ist SER_DESC : 1238 
7E 14 7D 3 MOV #20, -(SP) : 1239 
1C AE o Re be opsee MOVAB SSBUFFER, SSBUFFDESC*< : 
000000806 06 OF 6 24 PUSHAB USER_DESC : 
1C «AE OF 00365 PUSHAB $SBUFFDESC : 
g0 AE 9F 00368 PUSHAB $S$BUFFDESC ; 
F790 CF 9F 00368 PUSHAB P.ABZ ; 
000000006 00 94 FB 00 of 31$: CALLS #4, LIBSSYS_FAO : 
32 : D 00 3 MOVL RO. STAT ; 
1 5 9 0379 32$: BLBC STATUS, 33S : 
18 AE SF 0037¢ PUSHAB $$BUFFDESC ; 
000000006 99 4 FB 0037F CALLS #4, SCRSPUT_SCREEN ; 
2 0 DO 00386 MOVL RO, STAT : 
iF 32 8 00389 BLBS STATUS, 35$ ; 
1036 31 0038 338: BRW : 
7E 14 7D 0038F 34$: mova #20, -(SP) > 1240 
04 OD 00392 PUSHL : 
1¢ AE 20 AE 9E 00394 MOVAB $SBUFFER, S$SBUFFDESC+4 ; 
00000000" EF 9F 00399 PUSHAB FILL : 
1¢ «AE OF 0039F PUSHAB $$BUFFDESC : 
20 AE 9F 0 Ag PUSHAB $S$BUFFDESC ; 
F7 CF OF OO3A PUSHAB P.ACB : 
cs 11 003A9 BRB 31$ : 
9 DD 003AB 35$ PUSHL #57 > 1241 
04 DD OO 5AD PUSHL #4 : 
000000006 99 02 FB OO3AF CALLS #2, SCRSERASE_LINE ; 
5 50 D0 00386 MOVL RO, STATY : 
32 E9 00389 BLBC STATUS, 33$ ; 
000000006 0 D3 003BC TSTL UIC _BINARY DESC > 1242 
76 1 005¢e BEQL 8$ ; 
000000006 00 43 BF 9A 003C4 MOVZBL #67, UIC_DESC ; 1245 
000000006 00 000000006 00 9€ 003CC MOVAB UIC BUF, ~UIC DESC +4 : 1246 
0 000000006 00 00 00307 VL‘ UIC“BINARY_DESC#4, RO > 1250 
60 DD 00 DE PUSHL (ROY ; 
900000006 99 OF O03E 5 UIC_DESC ; 
00000006 9F 003E6 PUSHAB UIC™DESC : 
F738 CF 9F OO3EC SHAB  P.ACD ; 
000000006 00 4 re 00 FO CALLS #4, LIBSSYS_FAO : 
01 0 003F LBS STATUS, 36$ ; 
4 OO3FA RET _ ; 
7E 9 70 OO3FB 36$: mova #57, -i3P) : 1251 
4 DD 00 FE PUSHL #& ; | 
18 AE 0200 8F 3C 004 MOVZWL #512, $SBUFFDESC : 
1C 20 AE E 00406 MOVAB $SBUFFER, SSBUFFDESC+4 j 
000000006 00 9F 0408 PUSHAB UIC DESC ; 
1 AE OF 0041 PUSHAB $$BOFFDESC : 
#0 AE 9F 00414 PUSHAB $$BUFFDESC ; 
F71D CF 9F 00417 PUSHAB P.ACF ; 


ee 
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000000006 4 Ff 37S: CALLS #4, LIBS$SYS_FAO : 
g D MOVL RO, STAT : 
3 BLBC status 41$ : 
18 AE F 004 PUSHAB $S$BUFFDESC ; 
000000006 FB 004 CALLS #4, SCRSPUT_SCREEN : 
D0 004 MOVL RO, STAT : 
4 4 BLBS STATUS, 39S : 
Ase 4 3 
7E 9 043A 38¢ mOVa #57, =(SP) : 1253 
4 DD 4 PUSHL #4 : 
18 AE 0200 8F 3C 0043F MOVZWL #512, SSBUFFDESC : 
1C 30 AE 9€ O45 MOVAB  $$BUFFER, SSBUFFDESC+4 ; 
00000000" EF F 4A PUSHAB FILL 3 
1 AE 9F 430 PUSHAB $SBUFFDESC : 
20 AE OF 0045 PUSHAB $SBUFFDESC : 
FOEE CF OF 00456 PUSHAB P.ACH : 
HH 11 0 oR BRB 37$ : 
OC AE 0200 8F 3C 0045c¢ 398 MOVZWL #512, S$S$BUFFDESC + 1255 
000000006 90 DS 0046 TSTL | ACCOUNT_DESC : 1254 
9 1 904 BEQL = ; 
7E 14 7D 0046A MOVO #20, =(SP) + 1255 
05 DD 00460 PUSHL # ; 
1c «AE 20 AE 9E O46 Vv SSBUFFER, SSBUFFDESC+4 : 
000000006 00 9F 00474 PUSHAB ACCOUNT DESC : 
1C AE 9F O047A PUSHAB $SBUFFDESC : 
20 AE 9F 00470 PUSHAB $SBUFFDESC ; 
F6D0 CF 9F 00480 PUSHAB P.ACJ : 
000000006 00 04 FB 00484 40S: CALLS #4, LIBS$SYS_FAO : 
3¢ 50 DO 00488 MOVL RO, STATUS : 
7 52 9 0048 BLBC STATUS, 45$ : 
18 AE SF 00491 S $SBUF FDESC ; 
000000006 00 04 FB 00494 CALLS #4, SCRSPUT_SCREEN ; 
52 0 oO 00498 MOVL 0, STATUS : 
iE 52 3) 0049€ BLBS STATUS, 43$ : 
61 11 O04A} 41$: BRB ; 
7E 14 7D 004A3 42$: MOVa #20, -(SP) : 1256 
05 DD 00406 PUSHL ; 
1¢ AE 20 AE 9E 004A8 MOVAB $S$BUFFER, SSBUFFDESC+4 ; 
00000000" EF 9F 004A PUSHAB FILL : 
1C AE 9F 0048 PUSHAB $SBUFFDESC ; 
20 AE 9F 004 PUSHAB $SBUFFDESC : 
F6A3 «CF OF «00489 PUSHAB P.ACL ; 
CS 11 00480 BRB 40$ ; 
OC AE 0200 F 3 O4BE 43$:  MOVZWL #512, SSBUFFDESC : 1258 
000000006 00 0d C5 TSTL FINISH_TIME_DESC 3 1257 
9 13 004C BEQL «= 4 ; 
7E 9 7D 004CD MOV #57, =(SP) : 1258 
5 DD 04 PUSHL @# : 
1c AE 20 AE € 0040 MOVAB $SBUFFER, SSBUFFDESC+4 : 
000000006 00 0D 0040 PUSHL FINISH TIME_DESC+4 : 
1 AE 9F 004D PUSHAB $$BUFFDESC ; 
é AE 9F O004E PUSHAB $SBUFFDESC ; 
F68D CF OF O04E PUSHAB P.ACN ; 
000000006 9 4 FB OO4E7 448: CALLS #4, LIBSSYS_FAO ; 
9 D Que MOVL RO, STAT : 
4 . 4f BLBC STATUS, 49$ ; 
18 AE SF O04F4 PUSHAB $$BUFFDESC : 
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CALLS 


MOVL 
BLBS 
BRW 


3 VAX-11 Bliss-32 V4.0-74 
4 DISKSVMSMASTER:CACC.SRCJFORF..T.B 


#4, SCRSPUT_SCREEN 
RO, STATU 

STATUS, 47S 

49 

} , =(SP) 

SSBUFFER, SSBUFFDESC+4 


L 
SSBUF F DESC 
peau FOES 


$SBUFFER 
IDENT DESC 
(RO) 


SSBUF F DESC 
SSBUF F DESC 


P.ACR 
#4, LIBSSYS_FAO 
RO, STAT 
STATUS, 53$ 
$BUF F DESC 
#4, SCRSPUT_SCREEN 
RO, STATUS 
TATUS, 1$ 
#20, =(SP) 
SSBUFFER, SSBUFFDESC+4 


LL 
SSBUF F DESC 
SSBUF FDESC 
P.ACT 


SSBUF FDESC+4 
+4, RO 


48$ 
#512, S$SBUFFDESC 
TART _TIME_DESC 
#57, -(SP) 
SSBUFFER, 
START TIME 
$$BUF FDESC 
S$SBUFFDESC 
P.ACV 
#4, LIBSSYS_FAO 
RO, STAT 

STATUS, 53$ 
$SBUFFOESC 
#4, SCRSPUT_SCREEN 
RO, STATUS 

STATUS. 5h 

70$ 


SSBUFFDESC+4 
_DESC+4 
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000000006 00 DS 00500 548:  TSTL QUEUE_TIME_DESC ; 1266 
§ 3 0306 BEQL =s5 : hee : 
7E 7D 005D Ova #57, (SP) t 1267 
6 pp 0508 PUSHL : 
1c AE 20 AE 9E 00500 MOVAB S$$BUFFER, SSBUFFDESC+4 : 
000000006 0 pd Oot¢ PUSHL QUEUE _TIME_DESC+4 : 
iC «AE OOF O2E PUSHAB $$BUFFDESC : 
20 AE OF 005EB PUSHAB $S$BUFFDESC : 
FSCE CF OF OEE PUSHAB P.ACX : 
BC 11 005F BRB és : 
7E 7D 005F4 55$:  MOVQ #57, =(SP) + 1268 
06 DD a PUSHL ; 
1c AE 20 AE SE 005F9 OVAB $SBUFFER, S$SBUFFDESC+4 : 
00000000" EF 9F O005FE PUSHAB FIL : 
1C AE 9F 00604 PUSHAB $$BUFFDESC ; 
20 AE 9F 00607 PUSHAB $$BUFFDESC ; 
F5C2 CF OF O060A PUSHAB P.ACZ : 
AO 11 00608 BRB es ; 
OC AE 0200 8F 3C 00610 56$: MOVZWL #512, SSBUFFDESC > 1271 
000000006 00 05 00616 TSTL  OWNER_DESC > 1270 
3D 13 0061C BEQL ; 
7E 14 7D O061E MOVG #20. -(SP) / + 1271 
07 oD 00621 PUSHL # ; 
1© AE 20 AE 9E 00623 MOVAB $SBUFFER, S$SBUFFDESC+4 : 
50 000000006 00 DO 00628 MOVL § OWNER_DESC+4, RO : 
60 DD 006¢F PUSHL (RO) : 
1¢ «AE OF 00631 PUSHAB $$BUFFDESC ; 
20 AE OF 00634 PUSHAB $$BUFFDESC ; 
FSA5 CF 9F 00637 PUSHAB P.ADB : 
000000006 00 04 FB 0063B 57$: CALLS #4, LIBSSYS_FAO : 
52 50 D0 00642 MOVL RO, STATUS : 
10 52 €9 0064 BLBC STATUS, 58$ : 
18 AE SF 00648 PUSHAB $$BUFFDESC : 
000000006 00 04 FB 0064 CALLS #4, SCRSPUT_SCREEN ; 
52 50 DO 0065 MOVL RO, STATUS ; 
iF 52 £8 0065 BLBS STATUS, 60$ F 
OD6A 31 00658 58$: BRW 170$ : 
7E 14 7D 00658 59$: mova #20, -(SP) : 1272 
07 DD 0065 PUSHL ; 
1c AE 20 AE SE 006 VAB $S$BUFFER, S$SBUFFDESC+4 ; 
00000000" EF 9F 0066 PUSHAB FILL : 
1C AE OF 00668 PUSHAB $$BUFFDESC : 
20 AE 9F 0066E PUSHAB $$BUFFDESC : 
I F577 CFO 90671 PUSHAB P.ADD ; 
C4 11 00675 BRB 57$ : 
OC AE 0200 SF 3C 00677 60$:  MOVZWL #512, S$S$BUFFDESC : 1278 
000000006 99 dS 90670 TSTL START_TIME_DESC > 1273 
0 13 0068 BEQL = 6 ; 
0000000' FF 9F 00685 PUSHAB POST_MIDNIGHT : 1276 
00000006 60 9F 00688 PUSHAB ELAPSED_TIME : 
00000000' ai 9F 00691 PUSHAB DAY : 
000000006 0 3 FB 00697 CALLS #3 LIBSDAY : 
00000000° EF 00 00000000' EF 000186A0 i 7A 0069E EMUL #100000, POST_MIDNIGHT, #0, POST_MIDNIGHT  ; 1377 
E pA O6AF CLRL 53 : 1278 
7E 41 8F 9A 006B1 MOVZBL #65, -(SP) ; 
07 po 06B5 PUSHL # : 
1¢ AE 20 AE 9E 00687 MOVAB  $S$BUFFER, S$SBUFFDESC+4 : 
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9909000 ' EF 9OF 0068 PUSHAB POST_MIDNIGHT ; 
0000000" EF DD 006C PUSHL DAY F 
AE 9F 006C PUSHAB $$BUFFDESC ; 
4 AE 9F 006CB PUSHAB $SBUFFDESC : 
FSOA «CF OOF «006C PUSHAB P.ADF : 
000000006 Q 5 FB 006De 61$: CALLS #5, LIBSSYS_FAO : 
9 DO 00609 62$: MOVL RO. STATUS ; 
1 52 £9 006DC BLBC STATUS, 63$ : 
18 AE SF 0060F PUSHAB $$BUFFDESC : 
000000006 00 04 F OO6E2 CALLS #4, SCRSPUT_SCREEN ; 
3¢ 0 00 006E MOVL RO, STATU : 
0 3¢ 9 OOGEC BLBC STATUS, 63$ ; 
00 1 O06EF BRW 66$ : 
0cD0 31 O06Fe 63$: BRW 170$ : 
000000006 00 D5 006F5 64$:  TSTL § QUEUE_TIME_DESC + 1281 
4F 13 006FB BEQL = 6 : 
00000000° FF 9F O06FD PUSHAB POST_MIDNIGHT > 1285 
000000006 60 9F 0070 PUSHAB ELAPSED_TIME ; 
00000000" EF 9F 00709 PUSHAB DAY : 
000000006 03 FB 0070 CALLS #3 LIBSDAY : 
00000000" EF 00 00000000" EF 000186A0 8 7A 00716 L #160000, POST_MIDNIGHT, #0, POST_MIDNIGHT : 1286 
7E D4 00727 CLRL = = (SP + 1287 
7E 41 BF 9A 00729 MOVZBL #65, =(SP) : 
07 dD 0072D PUSHL #7 $ 
1C AE 20 AE 9E 0072F MOVAB SSBUFFER, SS$BUFFDESC+4 3 
00000000" EF 9F 007 PUSHAB POST_MIDNIGHT : 
06000000" EF DD 0073A PUSHL DAY ; 
20 AE 9F 00740 PUSHAB $$BUFFDESC : 
24 AE OF 00743 PUSHAB $$BUFFDESC : 
F4C2 «CF OOF 00746 PUSHAB P.ADH : 
86 11 0074A BRB ; 
7E D4 0074C 65$: CLRL (SP) > 1289 
7E 41 BF 9A 00746 MOVZBL #65, -(SP) : 
07 DD 0075 PUSHL : 
1¢ AE AE 9E 00754 VAB $S$BUFFER, SSBUFFDESC+4 : 
00000000" EF 9F 00759 PUSHAB FIL : 
1¢ «AE OF 0075F PUSHAB $$BUFFDESC : 
20 AE OOF 00762 PUSHAB $$BUFFDESC : 
F4B3 CF OOF «0076 PUSHAB P.ADJ : 
000000006 00 04 FB 00769 CALLS #4, LIBSSYS_FAO : 
FFG 31 00770 BRW 5 ; 
Oc AE 0200 8F %3C 00773 66%:  MOVZWL #512, SSBUFFDESC : 1292 
000000006 90 d3 00779 TSTL  TERMINAL_DESC : 1291 
A 1 077 BEQL 69 : 
7E 14 7D 00781 mova #20, -(SP) > 1292 
08 DD 00784 PUSHL # : 
1c AE 20 AE 9E 00786 MOVAB $$BUFFER, SS$BUFFDESC+4 : 
000000006 00 9 00788 PUSHAB TERMINAL DESC : 
1¢ AE 9F 00791 PUSHAB $S$BUFFDESC : 
20 AE 9F 00794 PUSHAB $S$BUFFDESC : 
F48D CF 9F 00797 PUSHAB P.ADL ; 
000000006 00 4 FB 0079B 67$: CALLS #4, LIBSSYS_FAO : 
52 0 D0 007A MOVL A : 
10 2 9 007A BLBC STATUS, 68$ ; 
000000006 8 OM ie thre Chere” pee SCRSEUT_ SCREEN 
99 0 6B 00782 MOVL RO, STATUS ~ ; 
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1b-sep-1 7 VAX-11 Bliss-32 V4.0- t) 
14-Sep-1 1382 3 $3: H DISKSVMSMASTER:CACC. SRC SFORAAT. 832;1 _— aS 
11 DD OOCEA PUS #17 ; 
000000006 F cE CALLS a. SCRSERASE_PAGE : 
DO OOCF MOVL us : 
g 59 CF BLBC status 9$ : 
a CF mova -(§P) : 1348 
FoBA Cr ObF Boe rE PUSHAB PLA it : 
000000006 FB 00D CALLS ge  ScRSPUT_SCREEN : 
DO 00D MOVL RO, STA : 
A 3 Doc BLBC status O98 : 
7E D OODOF MOV (sp + 1349 
D Die PUSHL : 
F088 CF SF 00D1 PUSHAB P.A : 
000000006 99 FB 00018 CALLS gin "Sensput _SCREEN ; 
Dd DIF MOVL RO. 3 
gD : D BLBC srATus y 9$ : 
E D va (§p) : 1350 
12 DD PUSHL aig ; 
FOBE CF OF A PUSHAB : 
000000006 99 F CALLS a recrspuT _SCREEN : 
i) MOVL RO, $ 3 
$8 : BLBC STATUS, 114$ : 
E D va rie -(sP) + 1351 
DD PUSHL #1 F 
FOBC «OCF OOF 0004 PUSHAB P.AFP ; 
000000006 FB 00D44 CALLS #4, SCRSPUT_SCREEN : 
9 DO 00D48 MOVL RO. STATU : 
F DODGE BLBC status 114$ : 
E 1 7D 00051 mova (§p) : 1352 
13 DD PUSHL a9” : 
F092 CFO PUSHAB P.A : 
000000006 99 FB OODSA CALLS #4, Pe cRspuT _SCREEN ; 
D 61 MOVL RO, STAT ; 
7E 5 64 BLBC stArus Ves : 
7E D 00067 mova #38, (sp : 1353 
D OOD6A PUSHL #1 : 
F09% CF «OOF 00D6C PUSHAB P.AFT ; 
000000006 F CALLS a, SCRSPUT_SCREEN ; 
D MOVL STATUS ~ : 
3 DOD7A BLBC srATus 1178 : 
7E 01 70 MOV (§p) + 1354 
14 DD PUSHL web ; 
F096 «=OCECOCO PUSHAB P.A : 
000000006 F CALLS gee  Scrsput _SCREEN F 
D MOVL RO, STAT ; 
$2 59 BLBC STATUS, 117$ : 
vo of am -(sP) + 1355 
4 0D PUSHL 4 ; 
F098 «CCRC PUSHAB ; 
000000006 FB 0009 CALLS a PS eRspuT _SCREEN ; 
D0 QODA MOVL RO. STAT ; 
C E 114$:  BLBC status 7$ : 
00000000" EF D A MOVL Ue ey DISPLAY. TYPE 3 1356 
000000006 115$:  TSTL AGE FAUCTS_ 31 
BEQL rf : 
7E 1 mOvO ae » =(SP) : 1359 
11 00 00088 PUSHL ; 
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18 AE o288 8F 3¢ MOVZWL #512, SSBUFFDESC ; 
1c OA A cy MOVAB SSBUFFER, SSBUFFDESC+4 ; 
af 000000006 05 Hi ¢ MOVL PA E.FAUCTS_DESC® » RO : 
D OODCF PUSHL (R : 
AE 9F 00001 PUSHAB SSBUFFDESC ; 
F0S9 CF OOF Bopp? PUSHAR Pears 
000000006 FB 00D CALLS #4, LIBSSYS_FAO : 
9 DO O0DE MOVL RO STATUS : 
18 AE SF E cee ete has stATUs Ni : 
000000006 4 Ff E CALLS #4, SCREPUT SCREEN : 
PS OODFS 1178: Bree  StaTas  d315 ; 
000000006 ; 03 F 118$ Ist 2 pean + 1360 
7E : 7D mOVG off 98 -(SP) + 1361 
1 0D PUSHL #17 ; 
i? Ar oof +4 ¢ ROVAB’ SSmUE FERS Some FDESC*s : 
5 000000006 05 6 1 VL IRECT_10_DESC+4, RO : 
6 pp 1 PUSHL (RO) ; 
1 AE 9F 00E19 PUSHAB $$BUFFDESC : 
é AE 9F OOEIC SHAB $SBUFFDESC ; 
F031 «CF «OOF OOETF SHAB P.AGB ; 
000000006 99 6 F 3 CALLS #4, LIBSSYS_FAO : 
9 D A VL —_ RO STATUS ; 
iF : BLBC STATUS, 122$ ; 
18 «AE OOF PUS SSBUFF DESC ; 
000000006 4 F CALLS #4, SCRSPUT_SCREEN ; 
D A MOVL RO. STATU : 
A E 119$: BLBC STATUS, 124$ ; 
50 000000006 9 9 40 120$: MOVL § PAGE_READS_DESC+4, RO + 1362 
C } 4 BEQL = 1 ; 
7E 14 7D 00649 MOVG #20, -(SP) > 1363 
12 DD OOE4C PUSHL ; 
18 OA 0290 BF 3C OOE4E MOVZWL #512, SSBUFFDESC ; 
1c OA 20 A MOVAB S$SBUFFER, SSBUFFDESC+4 : 
60 0D 9 PUSHL ) ; 
1 AE OF B PUSHAB $$BUFFDESC : 
20 AE OF az PUSHAB $SBUFFDESC ; 
EFFF CF 9F OOE6 PUSHAB P. ; 
000000006 af 5 CALLS #4, LIBSSYS_FAO ; 
§ E fF 121$: BLBC STATUS, 125$ : 
18 AE OOF é PUSHAB $$BUFF ESC ; 
000000006 F 7 CALLS #4, SCRSPUT_SCREEN ; 
D 7¢ MOVL RO. STA ; 
5 7F 122$: BLBS TATUS, 1238 ; 
00 BRW 27$ ; 
000000006 1238:  TSTL FFERED_10_DESC > 1364 
4 BEQL $s ; 
7E ; MOV #57, -(SP) > 1365 
0 PUSHL : ; 
18 AE 02 8F 3C MOVZWL #512, SSBUFFDESC : 
1c (OA Ar MOVAB $SBUFFER, SSBUEFDESC +4 ; 
5 G D 9D MOVL BUFFERED. 10_DESC+4, RO F 
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1eogeo 19g FFi83:06 — DISkSmSMASTERScACE SRC | ) 
STATUS, 1538 ; 1396 
14 BLBC US! 
f F $8 Oiie te : ; 
tt B Bria PUSHL A2e : 
eprs CF OF GING CALLS” Phe SCRSPUT_SCREEN ; 
4 FB ON VE RO, STAT Pt ; 
000000006 3 § : 1 soe BLBt stArus 1338 
Bop OT PUSHL a3 ‘ ; 
G pd O119¢ Van’ Soar eae poput fpEsces ; 
18 py not Ke E 164 port toy {RAGE FILE.DESC ; 
1¢ 000000006 9 : 18F PUSHAB os pda $43 ; 
bet OF Oni LS, #&- LIBSSYS_FAO 
EDDB CF 9F O11 CALLS #2, LiBss 3 
000000006 9 09 } BLBC TATUS. 1248 ; 
5 Oli CALLS” #4, SCREPUT_ SCREEN ; 
18 Yi FB O11 CALLS RO. STATU pe 
o : BLBC STATUS. 1548 : 
Bee SHG we: A Fed fee (OS 
*” 900000006 te Be 31138 Bea, : : 
1 BD OIA chits «SS. ecnscnase pact : 
02 FB OITA SMS fe STATUS Se 
000000006 09 1A 152$:  BLBC stATUS, ; 7 ; 
RHA Be iM foo 
PUSHL ; 
: EDBO i F Ot Be CALLS #4, SCRSPUT_SCREEN 
4 FB 01188 RO, STA 1403 
000000006 : : 3 , BLBt STATUS 1378 ; 
E ¢ 7 1¢§ mova = 5: ; 
, om PRHR BER He Heer osc : : 
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~ IC” ap F 01108 PUSHAS  SSBUFFDESC 
ool CF OF iF) CALLS ad. L1pssys_FA0 : : 
sere 2) eae : ; 
18 Ag SF ite teen a, SCREPUT SCREEN ; ia 
000000006 : MOVE = RO oa ; 
33 9 ONE 1548: OVE ate ta trem ; 1406 
00000000' . 4 $$: STL R_DATR_D ; } 
Reeeet Ai! tat a wel | 
01 6$: PUSHL @& : : 

DD 01914 15 su at é 

5B BtSig CALLS #2, SCRSERASE_PA 
000000006 00 


lena $7ibbib, | Sash anGaAS FER che shCSronmar.032;1°°% «33 


157$: SLB ThTus. 4 Ses 
RW 


0$ 
158$: #5, LAST _DISPLAY_TYPE 


USER -DATR. DESC+4> PTR 


USER DATA. DESC +4 
DA A-DESC, Ro®? R1 


A 1598: 
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+ Oe screryt BUFFER 


STATUS 65$ 
USER. DATA DESC, USER_DATA_DESC+4, RO 


ars 
1938 
SCREEN_CHAR, 167% 
SCREEN. CHAR#6, -(SP) 
#2, SCRSERASE LINE 
STATUS, Yess 
TEMP 

AH 

F DES¢ 
#3, ~SCRSGET_SCREEN 
RO, STAT 


STATUS, 166$ 
STATUS, #LIBS$_INPSTRTRU 
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3 Routine Size: 


7E 


5078 bytes, 


ol 
7E 000000006 
000000006 
14 AE 0299 
18 A 
3 HSH : 
10 AE 10 A 
7 
i 3 
EC86 F 
sm 14 ; 
mame Fd 
000000006 99 “6 
25 000000006 
7E 000000006 
000000006 % 
50 01 


1S se0- 
a yd at 
; 
: : 167$: 
op 182 
: 
tHe 
ute 
a Hp 
i 3 1688: 
y 169$: 
aie 
4 bg 171$ 
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1986 47:52:54 DESkSimsnastensca 


1"88 


SBUF F 


sh _DATA_DESC+4, RO, 


APRIS=. RRNA ABO On 
Seraso~ 
ADDoO-o 


=~o—- 


ee 


. aa BUFFER 
STAT 


Mint 0s 
SCREEN.CHAR, 171$ 


SCREEN_CHAR+6, -(SP) 
#2, SCRSERASE_LINE 
RO, STAT 

STATUS, 171 


U 
#1, LIBSSIGNAL 
STATUS, R 


#1, RO 


2.V 


:CA 


sseurr R, SSBUFFDESC+4 
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RCJFORMAT .B32;1 ~_ 3 
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1432 
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«EXTRN LIBSSIGNAL 


3 PSECT SUMMARY 

; Name Bytes Attributes 

: DATA $66 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. poked Ea bh fs 
3; CODE 7594 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 

; oocece - Symbols -<------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: $255 : CSYSLIBJSTARLET.L32;1 977 25 0 581 :01.0 

; Stiitirtt Hester] TPAMAC.L 34 ‘3 0 0 14 80:00:14 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:FORMAT/OBJ=OBJ$:FORMAT MSRC$:FORMAT/UPDATE=(ENHS: FORMAT) 


5455 code + 2603 data bytes 


un Time 
Flecriitets, ish 
Lexemes/CPU-Min: 1 
pages 


Memor ry Ut Used: 3864 
Compilation Complete 
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